Ответы
Ответ дал:
0
Var a:array [1..10]of integer;
I, j, plus,minus: integer;
Begin
Plus:=0;
Minus:=0;
For i:=1 to 10 do begin
Read ( a [ I ] );
If a[ I ] >0 then plus :=plus+1;
If a [ i]<0 then minus:=minus+1;
End;
Writeln (plus, minus);
End.
Ответ дал:
0
При условии что ноль ни положительный ни отрицательный
Ответ дал:
0
спасибо)))
Ответ дал:
0
спасибо))))
Вас заинтересует
1 год назад
6 лет назад
9 лет назад