напишите программу которая вычисляет всех положительных чисел из 10 чисел виденных на клавиатуре
Ответы
Ответ дал:
0
Var i, s, x:Integer ;
Begin
Writeln('Введите 10 чисел') ;
S:=0;
For i:=1 to 10 do begin
Read(x) ;
If x>0 then s:=s+x;
End;
Writeln(s) ;
End.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад