Даны два массива А. Б. Создайте массив С расположенный в порядке возрастания

0 голосов
65 просмотров

Даны два массива А. Б. Создайте массив С расположенный в порядке возрастания


Информатика (12 баллов) | 65 просмотров
0

из каких элементов С создать то?

Дан 1 ответ
0 голосов

Ну если я правильно понял задание...
var a,b:array[1..10] of integer;
c:array[1..20] of integer;
i,j,m:integer;
p1:^integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
read(b[i]);
for i:=1 to 20 do begin
  m:=9999999;
  for j:=1 to 10 do begin
    if a[j][email protected][j]; end;
    if b[j][email protected][j]; end;
    end;
  c[i]:=m;
  p1^:=99999999;
end;
for i:=1 to 20 do
write(c[i],' ');
end.

(4.7k баллов)