Заполнить массив 20 случайными числами (использовать генератор случайных чисел). Найти в массиве максимальный элемент и вывести на экран его значение и порядковый номер в массиве.
uses crt;var arr:array[1..20] of integer; max,q,maxq:integer;beginwriteln (ARRAY: );for q:=1 to 20 do begin arr[q]:=random(80); writeln (q:2,arr[q]:6); end;max:=arr[1];for q:=2 to 20 do if arr[q]>max then begin max:=arr[q]; maxq:=q; end;writeln;write(MAX = ,max, (П. НОМЕР ,maxq,));end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
