1) program gt; var s,n,a,i:integer; begin read(n) s:=0; randomize; for i:=1 to n do begin a:=random(100); s:=s+a; end; writeln(s); end. 2) можно сделать с файлом assign... reset... rewrite... while not eof(..) do begin read(..,a); s:=s+a; end; writeln(...,s); close(..) close(..); end.
program gt;
var s,n,a,i:integer;
begin
read(n)
s:=0;
randomize;
for i:=1 to n do
begin
a:=random(100);
s:=s+a;
end;
writeln(s);
end.
2)
можно сделать с файлом
assign...
reset...
rewrite...
while not eof(..) do
begin
read(..,a);
s:=s+a;
end;
writeln(...,s);
close(..)
close(..);
end.