Дан целочисленный массив размера N. Найти количество отрицательных элементов массива.

Question

Информатика

Нюня

20 сентября, 02:06

Дан целочисленный массив размера N. Найти количество отрицательных элементов массива.

+3

Ответы (1)

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

Харитон · Answer 1

Program minus;

Var

A: array (1 ... 100) of longint;

I:integer;

Begin

For i:=1 to length (A) do begin

If A[i] < 0 then writeln (A[i]) ;

End;

End.