Question

Напишите программу в Turbo Pascal

Answer 1

program UVA;
 var c:array[1..20] of integer;
 max,k,t:integer;
begin
 max:=0;
  for k:=1 to 20 do
   read(c[k]);
 for k:=1 to 20 do
 begin
   if c[k]>max then
    begin
     t:=k;
     max:=c[k];
   end;
 end;
write (max, ' ', t);
end.