Var a: array[1..15] of integer; i,max,j: byte;
begin
randomize;
max: =a[1];
for i: =1 to 15 do
begin
a[i]: =random(46)-15;
if a[i]> max
then begin
max: =a[i]; j: =i;
end;
write(a[i],' ');
end;
writeln('maximum ',max,' na ',j);
readln;
end.
переведите в с++
ну или написать в с++ создайте целочисленный массив а[1..15] с генератора случайных чисел с элементами от –15 до 30 и выведите его на экран. определите самый большой элемент массива и его индекс.
программа:
var a: array[1..15] of integer;
i,max,j: byte;
begin
randomize;
for i: =1 to 15 do
begin
a[i]: =random(46)-15;
write(a[i],' ');
end;
writeln;
max: =a[1]; j: =1;
for i: =2 to 15 do
if a[i]> max then begin
max: =a[i]; j: =i;
end;
writeln('maximum ',max,' na ',j);
readln;
end.
пример:
5 1 5 6 -12 3 23 26 6 25 -7 11 25 -15 7
maximum 26 na 8