Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Составьте программу упорядочения (по возрастанию) элементов одномерного массива А(N), встречающихся в массиве В(R)

80K
11 марта 2012 года
tata11tata
2 / / 11.03.2012
Помогите пожалуйста с программой никак не могу справиться с ней: Составьте программу упорядочения (по возрастанию) элементов одномерного массива А(N), встречающихся в массиве В(R)
80K
12 марта 2012 года
tata11tata
2 / / 11.03.2012
Сама спросила, сама решила)))
Program T16_2;
var a, b, c:array [1..20] of integer;
i, j, m, k, n, x, cmax, imax:integer;
begin
write ('vvedyte kol-vo elementovmassiva a');
readln(n);
writeln ('vvedite elementi massiva');
For i:=1 to n do
begin read(a); write(' '); end;writeln;
write ('vvedyte kol-vo elementovmassiva b');
readln(m);
writeln ('vvedite elementi massiva');
For i:=1 to m do
begin read(b); write(' '); end;writeln; k:=0;
For i:=1 to n do
For j:=1 to m do
if a=b[j] then begin k:=K+1; c[k]:=a; end;
for i:=1 to k-1 do
begin
cmax:=c[1];
imax:=1;
for j:=2 to K-i+1 do
if c[j]>cmax then
begin
cmax:=c[j];
imax:=j
end;
c[imax]:=c[k-i+1];
c[k-i+1]:=cmax;
end;
For i:=1 to k-1 do
For j:=i+1 to k do
If c>c[j] then begin x:=c; c:=c[j]; end;
if K=0 then write ('Takix elementov net')
else For i:=1 to k do write(c,' '); writeln;
readln;
end.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог