Задание 9 Вариант 1 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
![Изображение ответа 9. Напишите программу подсчёта количества элементов массива, превышающих заданное число Z. Проверьте работу программы на заданном массиве А = {7, 25, 4.5, 0, 17, 61,... Изображение 9. Напишите программу подсчёта количества элементов массива, превышающих заданное число Z. Проверьте работу программы на заданном массиве А = {7, 25, 4.5, 0, 17, 61,...](/reshebniki/informatika/11/WBbosova/images1/sam4/1/9.png)
![Загрузка...](/pic/zapret_pravo.png)
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 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('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
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением