Нужна помощь, буду очень благодарен.

+ 0 -

Aannabarmin

16 июля 2016 г., 9:52:52 (7 лет назад)

uses crt;
var f:text;
    i,x,sm,n:integer;
    pr:longint;
begin
randomize;
clrscr;
pr:=1;
assign(f,'f.txt'); rewrite(f);
writeln('Введите число заполнений (например 6, в файле будет шесть натуральных чисел) ?'); readln(n);
for i:=1 to n do
begin
write(i,') ');
readln(x);
writeln(f,x);
end;
close(f);

+ 0 -

Lednevsasha9

16 июля 2016 г., 10:56:48 (7 лет назад)

cvar
  f: Text;
  k: integer;
  s, p: longint;
  i: integer;

begin
  Assign(f, 'output.dat');
  Rewrite(f);
  writeln('Вводите данные, окончание число 7777');
  repeat
    read(k);
    if k<>7777 then writeln(f,k)
    until k=7777;
  Close(f);
  Reset(f);
  s := 0;
  p := 1;
  writeln;
  while not Eof(f) do
  begin
    readln(f, k);
    write(k:4);
    s := s + k;
    if k <> 0 then p := p * k
  end;
  Close(f);
  writeln;
  writeln('Сумма= ', s, ', произведение= ', p)
end.

Вводите данные, окончание число 7777
3
6
-4
6
2
-3
-4
2
6
0
5
-1
7777

   3   6  -4   6   2  -3  -4   2   6   0   5  -1
Сумма= 18, произведение= 622080

+ 0 -

Lecher

16 июля 2016 г., 12:48:43 (7 лет назад)

а в файл вносим случайные числа?

+ 0 -

Lolaprotopop

16 июля 2016 г., 13:28:42 (7 лет назад)

Нет, числа забивать вручную