Из 10 вводимых чисел с клавиатуры найти количество отрицательных

Question

33

в избранное ссылка

Знаете ответ?

praim · Accepted Answer

87

praim

29 августа 2022

vari,a,k: integer; begink: =0; for i: =1 to 10 dobeginreadln (a); if a<0 then k: =k+1; end; writeln ('количество отрицательных -',k); end.

комментировать

в избранное ссылка отблагодарить