Question

Люди добрые, помогите пж
ПАСКАЛЬ​

Answer 1

Ответ:

Program abc;

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

i,n,s:integer;

begin

Readln(n);    

For i:= 1 to n do begin

 a[i]:=random(100);

 s:= s+a[i];

 writeln(a[i]);

 end;

 writeln(s);

end.

Объяснение: