Ответ:

Program Pl_9_1;

uses crt;

Type Mas=array[1..10] of integer;

Var A:Mas;

i:integer;

Begin

Clrscr;

For i:=1 to 10 do begin

A[i]:=random(100)-0;

Writeln(A[i]);

end;

end.

Объяснение: