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

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

Question

Информатика

Игорька

29 июня, 01:23

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

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

+5

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