Вычислить произведение компонентов файла и вывести на печать

[Nuars]

Записать в файл последовательного доступа N действительных чисел. Вычислить произведение компонентов файла и вывести на печать.

[antishoker]

Могу ошибаться - проверьте.

var
  product, number, i, n: integer;
  f: file of integer;

begin
  assign (f,'file.txt');
  rewrite (f);
  writeln ('Количество компонент?');
  readln (n);
  writeln ('Ввести компоненты');
  for i:=1 to n do
    begin
      readln (number);
      write (f, number);
    end;
  close (f);
  reset (f);
  writeln ('Компоненты файла:');
  for i:=1 to n do
    begin
      read (f, number);
      write (' ',number);
    end;
  close (f);
  reset (f);
  product:=1;
  for i:=1 to n do
    begin
      read (f, number);
      product:= product*number;
    end;
  close (f);
  writeln;
  writeln ('Произведение компонент: ', product);
  readln;
end.

Так как вы не уточнили какие числа, присвоил integer.

[Nuars]

Это конечно все хорошо, спасибо большое. Но было бы лучше если бы было на С++. Прости что в теме не указал. А числа вводятся с клавиатуры, к примеру от 1 до 9

[antishoker]

Гм, к сожалению не владею нужным ЯП =)