Работа с одномерными массивами.
Составить на языке 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.