Одномерный массив x(10) задать с клавиатуры. Найти сумму отрицательных, количество положительных и произведение ненулевых элементов.
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Добавьте и poiz уберите
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад