Паскаль. Дан одномерный массив, значения которого вводятся с клавиатуры. Вычислить количество отрицательных элементов данного массива. На экран вывести

исходный массив и полученный результат

Question

Информатика

Милена

31 декабря, 22:56

Паскаль. Дан одномерный массив, значения которого вводятся с клавиатуры. Вычислить количество отрицательных элементов данного массива. На экран вывести

исходный массив и полученный результат

+3

Ответы (1)

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

Лавра · Answer 1

Var a:array[1 ... 100] of integer;

I, c, n:integer;

Begin

Readln (n) ;

For i:=1 to n do

Begin

Read (a[i]) ;

Write (a[i],' ') ;

If a[i]<0

Then c:=c+1;

End;

Writeln ('кол-во отриц.=', c) ;

End.