task 1

Сисохо Абдули аватар
  1. program hight;
  2.  const n=10;au=-10;b=10;
  3.   var a:array[1..n]of integer;
  4.    max,indx,i:integer;
  5.    begin
  6.    for i:=1 to n do begin
  7.    a[i]:=random(au,b); //readln(a[i);
  8.     end;
  9.     for i:=1 to n do begin
  10.     write (a[i]:4); //readln(a[1);
  11.      end;
  12.      max:=a[1];
  13.      for i:=2 to 10 do
  14.      begin
  15.      if a[i]>max then begin max:=a[i];indx:=i;
  16.      end;
  17.      end;;
  18.      writeln;
  19.      writeln(max:4,indx:5)
  20.      
  21.      
  22.      end.