Предмет: Информатика,
автор: Kartooowka
Работа с одномерными массивами.
Составить на языке PASCAL программу обработки одномерного массива.
Установить, сколько элементов массива F(15) удовлетворяют следующему условию:
3<f<10,5.
Ответы
Автор ответа:
0
Лови)
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.
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.
Автор ответа:
0
ну и последняя задачка гений)
Похожие вопросы
Предмет: Литература,
автор: aliakalmakova44
Предмет: Математика,
автор: taspulata
Предмет: Русский язык,
автор: markanthony020709
Предмет: Литература,
автор: nazarova0504