Задание 5 Вариант 1 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
А = {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
Программа последовательно просматривает все элементы массива и считает:
- $$kp$$ — количество положительных элементов;
- $$kn$$ — количество нулевых элементов;
- $$ko$$ — количество отрицательных элементов.
Для массива $$A = \{7, 25, 4.5, 0, 17, 61, -10, 0, 1, -4, 22\}$$ получаем:
- положительные: $$7, 25, 4.5, 17, 61, 1, 22$$ — всего $$7$$;
- нулевые: $$0, 0$$ — всего $$2$$;
- отрицательные: $$-10, -4$$ — всего $$2$$.
program s4_v1_5;
var
a: array[0..10] of real;
i, kp, kn, ko: integer;
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$$.
