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

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

Question

Информатика

Агриппа

23 марта, 22:19

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

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

+4

Ответы (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.