программу надо сохранить на диск и запустить ее, после этого в папке с этой программой появится файл "output.txt", его надо открытью
первые 5 чисел одинаковые
после их будут идти 7 любых чисел
потом сумма 10 рандомных чисел
затем произведение 10 случайных чисел
программа:
var a,i: integer;
t:text;
begin
assign(t,'output.txt');
rewrite(t);
a:=random(100);
for i:=1 to 5 do begin write(t,a,' '); end;
writeln;
for i:=1 to 7 do begin write(t,random(100),' '); end;
a:=0;
for i:=1 to 10 do begin a:=a+random(100); end;
write(t,a,' ');
a:=1;
for i:=1 to 10 do begin a:=a*random(100);end;
writeln(t,a);
close(t);
end.
программу надо сохранить на диск и запустить ее, после этого в папке с этой программой появится файл "output.txt", его надо открытью
первые 5 чисел одинаковые
после их будут идти 7 любых чисел
потом сумма 10 рандомных чисел
затем произведение 10 случайных чисел
программа:
var a,i: integer;
t:text;
begin
assign(t,'output.txt');
rewrite(t);
a:=random(100);
for i:=1 to 5 do begin write(t,a,' '); end;
writeln;
for i:=1 to 7 do begin write(t,random(100),' '); end;
writeln;
a:=0;
for i:=1 to 10 do begin a:=a+random(100); end;
write(t,a,' ');
a:=1;
for i:=1 to 10 do begin a:=a*random(100);end;
writeln(t,a);
close(t);
end.