Ответы
Ответ дал:
0
Var
N,A,k:integer;
Begin
Write('N = ');
ReadLn(N);
k:=0;
For N:= 1 to N do
Begin
Read(A);
if A>0 then k:=k+1;
End;
WriteLn('Кол-во положительных, среди введённых: ',k);
End.
N,A,k:integer;
Begin
Write('N = ');
ReadLn(N);
k:=0;
For N:= 1 to N do
Begin
Read(A);
if A>0 then k:=k+1;
End;
WriteLn('Кол-во положительных, среди введённых: ',k);
End.
Вас заинтересует
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад