pascal курсовая задача

[Maklin55]

Помогите мне сделать задачу. Заранее спасибо!


Дана матрица n x m . Найти наибольшие элементы в чётных строках и наименьшие элементы в нечётных строках. Вывести эти элементы на печать с указанием их индексов. Из найденных элементов создать линейный массив и отсортировать этот массив по возрастанию.

[Maklin55]

Я немного не понял, у какого идентификатора какой тип ставить надо. И можно расписать не начальную стадию программы, а уже ту, что дальше. Как раз сортировка сложнее.

[alex_fcsm]

Сообщение от Maklin55

Я немного не понял, у какого идентификатора какой тип ставить надо. И можно расписать не начальную стадию программы, а уже ту, что дальше. Как раз сортировка сложнее.

индексы все целочисленные, массивы и переменные для поиска min max делайте одного и того же(real, integer)
Возьмите пузырьковую - самая простая

[Maklin55]

Я так уже сделал. У меня программа перестала запускаться совсем. Этот код для TurboPascal? Можно начало расписать?

[alex_fcsm]

Сообщение от Maklin55

Я так уже сделал. У меня программа перестала запускаться совсем. Этот код для TurboPascal? Можно начало расписать?

Выложите, что у вас получилось.

[Maklin55]

program iwakurs;
uses crt;
var
a:array[1..10,1..10]of integer;
ms:array[1..10] of integer;
m,n,i,j,max,min:integer;
Begin
clrscr;
Write('„*** ¬*ваЁж* mxn. Ќ*©вЁ **ЁЎ®«миЁҐ н«Ґ¬Ґ*вл ў зсв*ле бва®Є*е Ё **Ё¬Ґ*миЁҐ');
write('н«Ґ¬Ґ*в ў *Ґзсв*ле бва®Є*е. ‚뢥бвЁ нвЁ н«Ґ¬Ґ*вл ** ЇҐз*вм б гЄ*§**ЁҐ¬ Ёе Ё*¤ҐЄб®ў.');
writeln('€§ **©¤Ґ**ле н«Ґ¬Ґ*в®ў ᮧ¤*вм «Ё*Ґ©*л© ¬*ббЁў Ё ®вб®авЁа®ў*вм нв®в ¬*ббЁў Ї® ў®§а*бв**Ёо.');
Write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® бва®Є');read (m);
Write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® бв®«Ўж®ў');read (n);
For i:=1 to m do
for j:=1 to n do
Begin
gotoxy (j*4,i+10);
read(a[i,j]);
end;
for i:=1 to n do
begin
if i mod 2=0 then
begin
max:=a[i,1];
for j:=2 to m do
if a[i,j]>max then max:=a[i,j];
ms[i]:=max;
writeln('Њ*ЄбЁ¬*«м*л© н«Ґ¬Ґ*в',a[i,j],'[',i,',',j,']');
end
else
begin
min:=a[i,1];
for j:=2 to m do
if a[i,j]<min then min:=a[i,j];
ms[i]:=min;
writeln('ЊЁ*Ё¬*«м*л© н«Ґ¬Ґ*в',a[i,j],'[',i,',',j,']');
end;
end;
readkey;
end.

Разве что только так. Всё заново перепечатывать времени много займёт. А с паскаля скопировать код нельзя.

[alex_fcsm]

Ну допишите уже сортировку и распечатайте новый массив

[Maklin55]

В том то и дело, что оно у меня минимумы и максимумы неверно выводит. Что толку печатать дальше, если ещё эта ошибка не исправлена?

[alex_fcsm]

Сообщение от Maklin55

В том то и дело, что оно у меня минимумы и максимумы неверно выводит. Что толку печатать дальше, если ещё эта ошибка не исправлена?

Пример, где неправильно выводит

[Maklin55]

Да хоть это. Чертовщина какая-то выходит.