Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Ввести два целочисленныхмассива − по 10 элементов в каждом. Сформировать новый массив, на четных местах которого будут элементы с нечетными индексами из первого массива, а нанечетных – с четными индексами из второго.Написать программу на паскале

Ответ оставил Гость

Скрин с результатом работы программы прикрепил.

var a:array[1..10] of integer;
b:array[1..10] of integer;
c:array[1..10] of integer;
i:integer;
begin
write (Введите массив 1: );
for i:=1 to 10 do
read (a[i]);
WRITELN;
write (Введите массив 2: );
for i:=1 to 10 do
read (b[i]);
WRITELN;
WRITELN;
write (Массив 3: );
for i:=1 to 10 do
begin
if i mod 2 <> 0 then c[i]:=b[i+1];
if i mod 2 = 0 then c[i]:=a[i-1];
write (c[i], );
end;
end.