Предмет-Газета,стадион.
Процес-Прогулка,Чтение.
Явление-Радуга,Мираж.
var a:array[1..100000] of integer;
i,n,k:integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin readln(a[i]); if(a[i]=0) then k:=k+1; end;
writeln(k);
end.
{Сначала вводится количество чисел в массиве (n), после этого вводится каждое число (a[i]) и если оно равно 0, то переменная k (количество)
увеличивается на 1}
Рассматриваются значения массива с индексами от 3 до 7.
Если его значение меньше пяти, то прибавляем к общей сумме, изначально равной 0.
Просмотрим все значения (от 3 до 7):
R[3] = -5 < 5. Сумма = 0 + R[3] = 0 + (-5) = -5
R[4] = 6 > 5. Условие не выполняется.
R[5] = 14 > 5. Условие не выполняется.
R[6] = 9 > 5. Условие не выполняется.
R[7] = 0 < 5. Сумма = -5 + R[7] = -5 + 0 = -5
R[8] не входит в рассматриваемую часть (цикл от 3 до 7).
Ответ: -5.
Program qZiP;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
while <>0 do
begin
write (‘Введите целое число>>’);
readln (n);
if n>0 then k1:=k1+1;
if n<0 then k2:=k2+1;
end;
writeln (‘Введено:’) ;
writeln (‘положительных чисел — ‘, k1);
writeln (‘отрицательных чисел — ‘, k2)
<span>end.</span>