Ответы
Ответ дал:
0
Var a:array [1..10] of integer;
I:integer;
Begin
For i:=1 to 10 do begin
Read (a [i]);
If a[i]>0 then writeln (a [i]);
End;
end.
Ответ дал:
0
вообще не шарю и дела обстоят плохо:(
Ответ дал:
0
поможешь?:)
Ответ дал:
0
В личку напиши мне, в вк пойдем, тут неудобно просто
Ответ дал:
0
ок
Ответ дал:
0
какой вк
Похожие вопросы
2 года назад
7 лет назад
9 лет назад
10 лет назад
10 лет назад