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 и выведите его на экран. определите самый большой элемент массива и его индекс.

2006Крис    3   06.10.2019 17:59    0