Работа с одномерными массивами. Составить на языке PASCAL программу обработки одномерного массива. Установить, сколько элементов массива F(15) удовлетворяют следующему условию: 3 меньше f меньше 10,5.
Работа с одномерными массивами.
Составить на языке PASCAL программу обработки одномерного массива.
Установить, сколько элементов массива F(15) удовлетворяют следующему условию:
3
Гость
Гость
Ответ(ы) на вопрос:
ГостьЛови)
var
F: array [1..15] of real;
i, res: integer;
begin
writeln('Enter F:');
for i := 1 to 15 do
begin
write('F[', i, '] = ');
readln(F[i]);
end;
res := 0;
for i := 1 to 15 do
if (F[i] > 3) and (F[i] < 10.5) then
res := res + 1;
writeln(res);
end.
Не нашли ответ?
Похожие вопросы