Ответы на вопрос:
var a: array[1..10]of integer; i,k,i1: integer; beginfor i: =1 to 10 do readln(a[i]);
for i: =10 downto 1 do if a[i]< > 0 then begin k: =a[i]; i1: =i; break; end;
a[i1]: =a[1]; a[1]: =k; for i: =1 to 10 do write(a[i],' '); end.
Популярно: Информатика
-
haiskkd10.11.2020 22:28
-
Пени6726.06.2021 11:16
-
chernika2531.05.2022 14:09
-
princess8215.06.2020 13:49
-
ddcgsshrdfydd08.11.2020 22:49
-
LisenokHan13.02.2021 09:29
-
Vyacheslav00916.03.2022 06:15
-
Nastia20070402.03.2023 10:43
-
rada18220.01.2021 15:42
-
toonon11217.01.2020 15:16