Регистрация
SaminaR
22.08.2020 11:29
Информатика
Есть ответ 👍

мне не нужно обьяснение пишите только ответ

169
472
Посмотреть ответы 1

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

alexkraskina
alexkraskina
4,4(90 оценок)
Program mas; uses crt; const n=3; var a,i,kp,ko,kn: integer; begin  clrscr;   writeln('введите ',n,' целых чисел'); ko: =0;   for i: =1 to n do  begin  readln(a);   if a< 0 then ko: =ko+1  end;   writeln('кол-во отриц чисел=   ',ko);   readln; end.

Популярно: Информатика