Упорядочить по возрастанию два столбца
Даны две таблицы. Составить из них 3 таблицу, упорядоченную по
возрастанию.
Решение:
program tabl;
uses crt;
var a : array [1..10] of longint;
b : array [1..20] of longint;
c : array [1..30] of longint;
n, m, k, l, i, j, min : longint;
BEGIN
clrscr;
write ('введ. кол. эл. таб. а n='); readln (n);
write ('введ. кол. эл. таб. b m='); readln (m);
for i:=1 to n do
begin
write('a[', i, ']='); readln (a[i]);
end;
for i:=1 to m do
begin
write('b[' ,i, ']='); readln (b[i]);
end;
k := n + m;
for i:=1 to n do c[i] := a[i];
for i:=1 to m do c[i+n] := b[i];
for i:=1 to k-1 do
begin
l := i;
min := c[i];
for j := i+1 to k do
if c[j] < min then
begin
min := c[j];
l := j;
end;
c[l] := c[i]
c[i] := min;
end;
for i:=1 to k do writeln ('Ответ: c[', i, ']=', c[i]);
readln;
END.
|
| Категория: Массивы | Добавил: deespe (31.01.2011)
|
| Просмотров: 1544
| Рейтинг: 0.0/0 |
|
