Задание 9 Вариант 1 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Рассмотрим вариант решения задания из учебника
Босова, Босова, Аквилянов 11 класс, Бином:
Напишите программу подсчёта количества элементов массива, превышающих заданное число 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('z=');
readln(z);
writeln('ввод массива');
for i := 0 to 10 do
begin
read(a[i]);
if a[i] > z then k := k + 1
end;
writeln('Количество элементов > z =', k);
end.
Z=20
Количество элементов, превышающих Z, равно: 3
