Ответы на вопрос:
Var d: array [1..6] of integer; i: integer; begin for i: =1 to 6 do read(d[i]); for i: =1 to 6 do begin if d[i]> 0 then write(d[i],' '); end; end.
Популярно: Информатика
-
444346823476339912.01.2023 13:57
-
h200018.07.2020 10:53
-
Louis1203.09.2020 05:21
-
sako991031.05.2022 13:25
-
ddfgdfgdfg12.10.2021 15:56
-
TimRus162rusg24.06.2021 14:05
-
амаикем05.10.2021 16:35
-
вопросик7006.08.2022 04:27
-
Ксюшенька201716.09.2021 04:01
-
aiym1910.04.2020 05:58