Паскаль Имеется массив на 10 элементов . Все элементы- натуральные числа . Каждый четный элемент поменять местами с предыдущим . Вывести полученный массив.
126
ОТВЕТЫ
Const n=10;
var a:array[1..n] of integer;
i,b:integer;
begin
Randomize;
writeln(Исходный массив:);
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
for i:=2 to n do
if a[i] mod 2 = 0
then begin b:=a[i]; a[i]:=a[i-1]; a[i-1]:=b end;
writeln(Измененный массив);
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
Исходный массив:
23 40 43 45 29 17 11 22 23 27
Измененный массив
40 23 43 45 29 17 22 11 23 27
var a:array[1..n] of integer;
i,b:integer;
begin
Randomize;
writeln(Исходный массив:);
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
for i:=2 to n do
if a[i] mod 2 = 0
then begin b:=a[i]; a[i]:=a[i-1]; a[i-1]:=b end;
writeln(Измененный массив);
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
Исходный массив:
23 40 43 45 29 17 11 22 23 27
Измененный массив
40 23 43 45 29 17 22 11 23 27
182
Отв. дан
Kirikus
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Tojale
Номер 13 ................. ...
2019-05-24 08:08:35
Buwyn
2019-05-24 08:06:49
Bandiril
Смядь нмёкё асигёф – смящыд ынэдь нмёкё грущэй г ...
2019-05-24 08:06:06
Laatekyuk
Прочти условия задачи у Вити было семь рублей он ...
2019-05-24 08:05:32