§ 3.5. Программирование циклических алгоритмов
Ссылка на конференцию
8 класс
13.04.2020
План работы:
Program А2;
var x, c, k: integer;
begin
c:=0;
for k:=1 to 10 do
write ('введите число ');
readln(x);
if x < 0 then c:=c+1;
end;
write (c);
end.