Дан одномерный массив целых чисел поменять местами самый первый и самый последний элемент не равный 0. программа pascal
SOSmi
1
18.03.2019 22:20
0
Другие вопросы по теме Информатика
Mironshiha
18.05.2021 16:09
TokOst
18.05.2021 16:09
yayuk
27.10.2020 08:48
Blumster12
27.10.2020 08:47
roksanaatalan
12.06.2019 01:30
vikulazvezdocka
11.06.2019 18:40
kair7775550
11.06.2019 18:30
EvaMilka
27.04.2020 18:41
princess110
27.04.2020 18:39
asaparova80
05.05.2020 19:42
Популярные вопросы
- Почему александр суворов решил выбрать военную карьеру...
2 - А)какое строение имеют крахмал и целлюлоза? 2)какова биологическая...
3 - Сколько в слове голубь гласных и согласных...
3 - Завтра сдавать основание прямой призмы прямоугольного треугольника...
3 - Реферат о одном из редких жывотных по языку...
2 - катер двигался по течению 2,4 часа,а против течения 0,6 часа.какой...
2 - Решение уравнения 3*(2/5х+3)-3/5х=8...
3 - Решить : в овощной магазин капусту , свёкла и морковь. свёклы было...
1 - Найдите корни уравнения 2-3(2x+2)= 5-4x ответ нужен с решением...
3 - Покупательв магазинеистратилднег в 4 раза больше , чем на рынке...
2
var a:array[1..10]of integer;
i,k,i1:integer;
begin
for 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.