Question

Напишите программу на паскале (8 класс)

Answer 1

Ответ:

program test;

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

i,m: integer;

begin

randomize;

for i:=1 to 10 do

begin

a[i]:=random(21)-10;

if i=1 then m:=a[i] else

if a[i]>m then m:=a[i];

write(a[i],' ')

end;

writeln;

write(m)

end.