Предмет: Информатика, автор: Kartooowka

Работа с одномерными массивами.
Составить на языке PASCAL программу обработки одномерного массива.

Установить, сколько элементов массива F(15) удовлетворяют следующему условию:
3<f<10,5.

Ответы

Автор ответа: HRAshton
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.
Автор ответа: Kartooowka
0
ну и последняя задачка гений)
Похожие вопросы
Предмет: Русский язык, автор: markanthony020709
Предмет: Литература, автор: nazarova0504