Одномерный массив x (10) задать с клавиатуры. Найти сумму отрицательных, количество положительных и произведение ненулевых элементов.

Question

Информатика

Дарьюшка

20 апреля, 05:11

Одномерный массив x (10) задать с клавиатуры. Найти сумму отрицательных, количество положительных и произведение ненулевых элементов.

+4

Ответы (1)

Знаете ответ на вопрос?

Петуша · Answer 1

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

Begin

Poiz

For i:=1 to 10 do readln (a[i]) ;

For i: = 1 to 10 do

Begin

Proz: = 1;

If a[i] < 0 then sum : = sum - a[i];

If a[i] > 0 then kol : = kol + 1;

If a[i] 0 then proz : = proz * a[i];

End;

Write (sum,' ', kol,' ', proz,' ')

End.