Ввести с клавиатуры n-любых чисел, найти количество отрицательных чисел (Паскаль)

Question

Информатика

Юлиания

20 июля, 03:09

Ввести с клавиатуры n-любых чисел, найти количество отрицательных чисел (Паскаль)

+2

Ответы (1)

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

Лея · Answer 1

Var s, i, n : integer;

z: array [1 ... 100] of integer;

Begin

Read (n) ;

for i: = 1 to n do

Read (z[i]) ;

s:=0;

for i: = 1 to n do

if z[i]<0 then s: = s+1;

Write ('koll=', s) ;

end.