Вычислить количество первых отрицательных элементов массива. АВС паскаль

Question

Информатика

Гурий

13 февраля, 00:49

Вычислить количество первых отрицательных элементов массива. АВС паскаль

+2

Ответы (1)

Знаете ответ на вопрос?

Марьяха · Answer 1

Var ar:array[1 ... 5] of integer;

i, k:integer;

begin;

K:=0;

for i:=1 to 5 do

begin;

readln (ar[i]) ;

if ar[i]<0 then inc (k) ;

end;

writeln ('Result:', k) ;

end.