Паскаль, HELP

01.01.2001

Паскаль, HELP
Паскаль, помогите! Помогите переделать задачу вот под это услосие 1. Дан одномерный массив, который содержит не более 10

Задание: Двумерный массив NxM заполнить целыми числами случайным образом и отсортировать четные столбцы по возрастанию, нечетные - по убыванию.
program z_array;
uses crt;
var a:array[1..50,1..50] of integer;
n,m,i,j,k,min,max:byte;
temp:integer;
begin
clrscr;
{Ввод размерности матрицы}
writeln('Введите количество строк матрицы');
readln(n);
writeln('Введите количество столбцов матрицы');
readln(m);
{/Ввод размерности матрицы}
randomize;
{Заполнение и вывод матрицы}
writeln;
writeln('Данная матрица');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:5);
end;
writeln;
end;
{/Заполнение и вывод матрицы}
{Упорядочивание столбцов}
for i:=1 to m do
begin
if odd(i) then
begin
{Упорядочивание нечетных столбцов}
for j:=1 to n-1 do
for k:=j+1 to n do
if a[j,i] < a[k,i] then
begin
temp:= a[j,i];
a[j,i]:=a[k,i];
a[k,i]:=temp;
end;
{/Упорядочивание нечетных столбцов}
end
else
begin
{Упорядочивание четных столбцов}
for j:=1 to n-1 do
for k:=j+1 to n do
if a[j,i] > a[k,i] then
begin
temp:= a[j,i];
a[j,i]:=a[k,i];
a[k,i]:=temp;
end;
{/Упорядочивание нечетных столбцов}
end

Добавлено 14 минут назаднадо вобщем всё тоже самое но для строк

  • 1500 Рублей, дорогие студенты, начните учится =).
  • так что надо сделать с одномерным массивом

Вас заинтересует