Дан целочисленный массив размера N. Найти количество отрицательных элементов массива.
Дан целочисленный массив размера N. Найти количество отрицательных элементов массива.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы