Заполнить массив 20 случайными числами (использовать генератор случайных чисел). Найти в...

Question

Заполнить массив 20 случайными числами (использовать генератор случайных чисел). Найти в массиве максимальный элемент и вывести на экран его значение и порядковый номер в массиве.

Answer 1

 

  uses crt; var    arr:array[1..20]ofinteger;    max,q,maxq:integer; beginwriteln('ARRAY: '); for q:=1to20do          begin          arr[q]:=random(80);          writeln(q:2,arr[q]:6);          end; max:=arr[1]; for q:=2to20do     if arr[q]>max then        begin        max:=arr[q];        maxq:=q;        end; writeln; write('MAX = ',max,' (П. НОМЕР ',maxq,')'); end.