Сделайте пожалуйста это в паскале АВС. Записать файл: 5 одинаковых целых чисел. 7 любых...

Question

Сделайте пожалуйста это в паскале АВС. Записать файл: 5 одинаковых целых чисел. 7 любых чисел сумму 10 любых чисел Произведение 10 любых чисел

Answer 1

программу надо сохранить на диск и запустить ее, после этого в папке с этой программой появится файл "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.