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.
Объяснение:
