Задание 9 Вариант 1 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

9. Напишите программу подсчёта количества элементов массива, превышающих заданное число Z. Проверьте работу программы на заданном массиве А = {7, 25, 4.5, 0, 17, 61, —10, 0, 1, -4, 22}.

Z =.......

Количество элементов, превышающих Z, равно...

program s4_v1_9;

var

a: array[0..10] of real;

i, k: integer;

z: real;

begin

k := 0;

write(taskz=task);

readln(z);

writeln(taskввод массиваtask);

for i := 0 to 10 do

begin

read(a[i]);

if a[i] > z then k := k + 1

end;

writeln(taskКоличество элементов >z =task, k);

end.

Z=20

Количество элементов, превышающих Z, равно: 3