Question

В массиве В из 20 случайных целых чисел из диапазона [-10;10] найти максимальный элемент и его порядковый номер. ПАСКАЛЬ.

Answer 1

program prog;

var

b:array[1..20] of integer;

k,i,max:integer;

begin

   k:=0;

   max:=0;

   for i:=1 to 20 do begin

       b[i]:=random(-20)+10;

       write(b[i], ' ');

       if b[i] > max then begin

           max:=b[i];

           k:=i;

       end;

   end;

   writeln();

   write('Самое большое число равно ', max,', и оно находится под номером ', k);

end.