Меню сайта

Задача №23

Даны 2 массива. Составить из них 3-й, упорядоченный по возрастанию.


Program mas_23-

uses crt-

var a : array [1..100] of longint-

b : array [1..100] of longint-

c : array [1..200] of longint-

n,m,k,l,i,j,min : longint-

begin

clrscr-

write(‘введите количество элементов n’)-

readln(n)-

write(‘введите количество элементов m’)-

readln(m)-

randomize-

for i:=1 to n do

a[i]:=random (50)-

for i:=1 to m do

b[i]:=random (50)-

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]&lt-min then

begin

min:=c[j]-l:=j-

end-

c[l]:=c[i]-

c[i]:=min-

end-

for i:=1 to k do write(c[i]:4)-

readln-

end.

Категория: Массивы | Дата: 19.12.12

Меню раздела
Блок