program Positiv;
var i:integer; x,sum:real;
begin
sum:=0;
for i:=1 to 10 do
begin
write('введите ',i,'-е число: ');
readln(x);
if x>0 then sum:=sum+x;
end;
writeln('Cумма положительных чисел равна ',sum);
end.
<span>4) С:\Красная_книга\Евразия\Россия\Растения_степей.doc
</span>
7 мостов, перелет стоит 9
1-Кодирование
2-передача это там где перец
3-обработка там где краб
4-хранение там где рюкзак
А дальше не знаю
1, если цифровая.
()()()()()()()()()()()()()(