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

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

5. Напишите программу подсчёта количества положительных, количества нулевых и количества отрицательных элементов массива. Проверьте работу программы на заданном массиве

А = {7, 25, 4.5, 0, 17, 61, -10, 0, 1, -4, 22}.

Количество положительных элементов равно:..............

Количество нулевых элементов равно:....................

Количество отрицательных элементов равно:..............

program s4_v1_5;

var

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

i, kp, kn, ko: integer;

s: real;

begin

kp := 0; kn := 0; ko := 0;

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

for i := 0 to 10 do

begin

read(a[i]);

if a[i] > 0 then kp := kp + 1;

if a[i] = 0 then kn := kn + 1;

if a[i]

end;

writeln(taskkp=task, kp, task kn=task, kn, task ko=task, ko);

end.

Количество положительных элементов равно: 7

Количество нулевых элементов равно: 2

Количество отрицательных элементов равно: 2