Работа с одномерными массивами.
Составить на языке PASCAL программу обработки одномерного массива.
Установить, сколько элементов массива F(15) удовлетворяют следующему условию:
3<f<10,5.
Составить на языке PASCAL программу обработки одномерного массива.
Установить, сколько элементов массива F(15) удовлетворяют следующему условию:
3<f<10,5.
More Questions From This User See All
Answers & Comments
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.