Задание 5 Вариант 1 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
![Изображение ответа 5. Напишите программу подсчёта количества положительных, количества нулевых и количества отрицательных элементов массива. Проверьте работу программы на заданном... Изображение 5. Напишите программу подсчёта количества положительных, количества нулевых и количества отрицательных элементов массива. Проверьте работу программы на заданном...](/reshebniki/informatika/11/WBbosova/images1/sam4/1/5.png)
![Загрузка...](/pic/zapret_pravo.png)
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 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('ввод массива');
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] < 0 then ko := ko + 1;
end;
writeln('kp=', kp, ' kn=', kn, ' ko=', ko);
end.
Количество положительных элементов равно: 7
Количество нулевых элементов равно: 2
Количество отрицательных элементов равно: 2
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением