Найти максимальный и минимальный среди всех элементов двух строк заданной матрицы, которые упорядочены по убыванию

esman

Найти максимальный и минимальный среди всех элементов двух строк заданной матрицы, которые упорядочены по убыванию. Проверку упорядоченность строки по убыванию, поиски максимума и минимума массива оформить в виде подпрограмм.
4 ответа

esman

поиски максимума и минимума массива оформить в виде подпрограмм.
Зачем? Максимальный элемент первый в строке, минимальный-последний.


esman

Не знаю, так в задании написано)


esman

помогите найти ошибку
Program Kursovaj;
Type Massiv=array[1..10] of integer;
Var
i,j,m,n,ind: integer;
MaxStr,MaxMatr:integer;
f:text;
Matr: array[1..100,1..100] of integer;
Mas: Massiv;
Procedure Upor (Mas:Massiv;m:integer;var ind:integer);
var j:integer;
begin
if Mas[2]<Mas[1]
then
begin
ind:=-1;
j:=3;
while(j<=m) and (ind=-1) do
begin
if Mas[j]<Mas[j-1] then j:=j+1
else ind:=0;
end;
end
else ind:=0;
begin
assign (f,'maxelem.txt');
rewrite (f);
writeln ('Vvedite razmernost matrici:');
write ('Chislo strok=');
readln (n);
write ('Chislo stolbcov=');
readln (m);
writeln ('Vvedite elementi matrici po strokam');
writeln ('f,Ishodna9 matrica:');
for i:=1 to n do
begin
for j:=1 to m do
begin write ('Matr[',i,',',j,']=');
readln (Matr[i,j]);
write (f,Matr[i,j],'');
end;
writeln (f);
end;
MaxMatr:=-MaxInt;
for i:=1 to n do
begin
for j:=1 to m do Mas[j]:=Matr[i,j];
Upor(Mas,m,ind);
if ind=-1
then begin
MaxStr:=Mas[1];
writeln (f,i,'=9 ****************** po ubivaniy. Max=',MaxStr);
end;
readln;
close (f);
end.


esman

A.PAS(55): Error 85: ";" expected.
Сортировка строк матрицы:
const m=10; n=10;
var
  i: Integer;
  a: array [1..m,1..n] of Integer;
...
  for i:=1 to m do SortDsc(a[i]);
Сортировка по убыванию, например, оттуда.
Кликните здесь для просмотра всего текста
procedure SordDsc(var a: array of Integer);
var i, j, t: Integer;
begin
  t:=High(a);
  repeat
    i:=t; t:=Low(a);
    for j:=Low(a) to i-1 do
      if a[j+1]>a[j] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t; t:=j;
      end;
  until t=Low(a);
end;