информатика олимпиада
ответ запишите полностью с решением

Question

Информатика: информатика олимпиада ответ запишите полностью с решением

Vikatop10 · Accepted Answer

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. // Конец

Ответы на вопрос: