Ввести файл F из 12 элементов Опции

[mfractus]

Здравствуйте уважаемые пользователи ресурса! Прошу помощи в решении задачи.

Ввести файл F из 12 элементов. Определить в нём произведение тех
элементов, чей модуль лежит в диапазоне [ 1; 5]. Заранее спасибо!

Начал с ввода файла F:

program ABC;
var b,P,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
rewrite(f);
writeLn('вводите 12 компонент файла f:');
for i:=1 to 12 do
begin
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
write(f,b);
end;

[mfractus]

Скажите, пожалуйста, что значит строка write(a,' ');? То что запись - знаю. В скобках, что за пробел?

Сообщение отредактировано: mfractus - 28.04.2011 23:53

[Lapp]

Скажите, пожалуйста, что значит строка write(a,' ');? То что запись - знаю. В скобках, что за пробел?

Я просмотрел всю тему и не смог найти такой фрагмент. Откуда ты его взял?

Совет: убери этот пробел, прогони прогу и посмотри, что получится. Думаю, сразу поймешь.


и почему бы не повысить репу ребятам за помощь?.. жалко клика?