Question

Памогите пожалуйста написать программу .

Answer 1

Ответ:

var

a:array[1..10] of integer;

max,i:integer;

begin

Randomize;

 for i:=1 to 10 do

  begin

   a[i]:=random(100);

   write(a[i],' ');

  end;

  max:=1;

   for i:=2 to 10 do

    begin

     if a[i]>max then

       max:=i;  

    end;

   

end.

Объяснение: