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

Viktor

 

 
uses crt;
var
   arr:array[1..20] of integer;
   max,q,maxq:integer;
begin
writeln ('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.