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

Большое спасибо! В итоге будет так?

program ABC;
var b,P,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
rewrite(f);
writeLn('вводите 12 компонент файла f:');
P:=1;
for i:=1 to 12 do
begin
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
if (abs(b)>=1) and (abs(b)<=5) then P:=P*b;  
write(f,b);
end;
writeln('произведение элементов: ',P);
else
writeLn('в файле нет таких элементов');
close(f);
end.

Сообщение отредактировано: mfractus - 27.04.2011 0:48

[Freedom]

Большое спасибо! В итоге будет так?

program ABC;
var b,P,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
rewrite(f);
writeLn('вводите 12 компонент файла f:');
P:=1;
for i:=1 to 12 do
begin
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
if (abs(b)>=1) and (abs(b)<=5) then P:=P*b;  
write(f,b);
end;
writeln('произведение элементов: ',P);
else  {тут не понятно что за условие}
writeLn('в файле нет таких элементов');
close(f);
end.

Есть ошибка, если вы хотите чтобы писало есть такие элементы или нет, то примерно:

program ABC;
var b,P,i:integer;
f:file of integer;
flag:boolean;
begin
assign(f,'f.dat');
rewrite(f);
writeLn('write 12 elements of f:');
P:=1;
flag:=false;
for i:=1 to 12 do
begin
writeLn('write ',i,'element f');
readLn(b);
if (abs(b)>=1) and (abs(b)<=5) then begin P:=P*b; flag:=true; end;
 write(f,b);
end;
 If flag then
 writeln('Proizvedenie= ',P) else
 writeLn('No this elements');
close(f);
end.