Var A,i,k:integer;
Begin
Write('Введите 10 целых чисел: ');
k:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A>0 then k:=k+1
End;
Write('Количество положительных: ',k);
End.
Входит в состав: операционная система и ПО компьютера; MS Word и MicrosoftOffice.
Является разновидностью: редактор презентаций и прикладное ПО; растровый графический редактор и графический редактор; векторный графический редактор и графический редактор.
<span>Является элементом множества: все прочие.</span>
От 0--15 или от -7 до 0 со знаком