var
i, n, ch, k1, k2, k3: Integer; //Объявляем переменные
begin // Начало блока
Writeln('Введите кол-во чисел: '); Readln(n); //В переменную N записываем информацию о количестве чисел
Writeln('Введите числа: ');
for i := 1 to n do // Начинаем цикл for от 1 до N
begin //Начало цикла
Readln(ch); //Записываем в переменную CH информацию о числе введеного с клавиатуры
{Inc - счетчик
т.е если условие истинно с
мы в переменную k1 записываем +1}
if ch = 0 Then Inc(k1);
if ch > 0 Then Inc(k2);
if ch < 0 Then Inc(k3);
end; //Конец цикла
{Выводим информацию о количестве чисел которые соответствуют условию}
Writeln('Число нулей: ', k1);
Writeln('Число положительных: ', k2);
Writeln('Число отрицательных: ', k3);
end. // Конец
program z1;
const a: array [1..16] of integer = (0,15,12,-9,-8,58,45,36,-85,58,36,-45,2,3,25,-9);
var i, s, k: integer;
begin
s:=0;
write ('Массив: ');
for i:=1 to 16 do
begin
write (a[i],' ');
if a[i]>0 then s:=s+a[i];
if a[i]<0 then k:=k+1
end;
writeln;
writeln ('Сумма положительных элементов ',s);
write ('Количество отрицательных элементов ',k)
end.
program z2;
var a:array [1..10] of integer;
i,p,k:integer;
begin
k:=0;
p:=1;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(7)-3;
write(a[i]:4);
if a[i] <> 0 then
begin
p:=p*a[i];
k:=k+1
end
end;
writeln;
if k<>0 then write ('Произведение элементов, которые не равняются 0, равно ',p)
else write ('Произведение элементов, которые не равняются 0, равно 0')
end.
