Ввести файл 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;

[DarkWishmaster]

так как у тебя интервал [1:5] а не (1:5) то некоректно использовать

if P=1 then //нету таких чисел

потому что если у тебя будет например: 1 9 6 1 -1 -2 7 -1
то произведение будет: 1*1*(-1)*(-1)=1 т.е P=1 но ведь таких чисел 4!
А переменая flag смотрит если было произвидено хотя бы одно умножение, если да то очевидно что такие элементы существуют и можно вывести произведение на экран.

Сообщение отредактировано: DarkWishmaster - 26.04.2011 22:27