Поправите мою программу пожалуйста

29.05.2011, 17:34. **Показов** 357. **Ответов** 0

Author24 — интернет-сервис помощи студентам

Дано 2 массива, размерности N. Из положительных элементов обоих элементов обоих массивов создать новы, упорядоченный по убыванию.
Вот пока что получилось

Pascal

var 
 a, b, c: array[1..100] of integer; 
 i, j, n, k, m, x: integer; 
 
begin 
 write('N = '); 
 readln(n); 
 writeln('dd A: '); 
 for i := 1 to n do 
 read(a[ i ]); 
 writeln; 
 writeln('dd B: '); 
 for i := 1 to n do 
 read(b[ i ]); 
 for i := 1 to n do 
 if a[ i ] > 0 then 
 begin 
 k := k + 1; 
 c[ k ] := a[ i ]; 
 end; 
 for i := 1 to n do 
 if b[ i ] > 0 then 
 begin 
 m := m + 1; 
 c[m + k] := b[ i ]; 
 end; 
 for i := 1 to m + k - 1 do 
 for j := i + 1 to m + k do 
 if (c[ i ] > c[ j ]) then 
 begin 
 x := c[ i ]; 
 c[ i ] := c[ j ]; 
 c[ j ] := x; 
 end; 
 writeln; 
 writeln('dd Ñ: '); 
 for i := 1 to m + k do 
 write(c[ i ], ' '); 
 readln; 
end

	29.05.2011, 17:34