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