Работа с одномерными массивами.
Составить на языке PASCAL программу обработки одномерного массива.
Установить, сколько элементов массива F(15) удовлетворяют следующему условию:
3<f<10,5.
2 комментария:
Типа равны трём?
изменил.
Типа равны трём?
изменил. Ответы
Гость Лови)
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.
2 комментария:
божественно)
ну и последняя задачка гений)
божественно)
ну и последняя задачка гений) Список предметов
