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

@esman · Регистрация: 21.03.2018

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

@Puporev · 01.05.2018, 19:43

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

поиски максимума и минимума массива оформить в виде подпрограмм.

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

@esman · 01.05.2018, 22:22 **[ТС]**

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

@esman · 17.05.2018, 20:47 **[ТС]**

помогите найти ошибку

Pascal

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 strokaupor9dochena po ubivaniy. Max=',MaxStr);
end;
readln;
close (f);
end.

@bormant · 18.05.2018, 10:05

Код

A.PAS(55): Error 85: ";" expected.

Добавлено через 12 минут
Сортировка строк матрицы:

Pascal

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]);

Сортировка по убыванию, например, оттуда.

Кликните здесь для просмотра всего текста

Pascal

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;

@esman 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 3
		1
	Найти максимальный и минимальный среди всех элементов двух строк заданной матрицы, которые упорядочены по убыванию 01.05.2018, 16:40. Показов 1900. Ответов 4 Метки нет (Все метки) Найти максимальный и минимальный среди всех элементов двух строк заданной матрицы, которые упорядочены по убыванию. Проверку упорядоченность строки по убыванию, поиски максимума и минимума массива оформить в виде подпрограмм. 0

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	01.05.2018, 19:43	2
	Сообщение от esman поиски максимума и минимума массива оформить в виде подпрограмм. Зачем? Максимальный элемент первый в строке, минимальный-последний. 0

@esman 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 3
	01.05.2018, 22:22 [ТС]	3
	Не знаю, так в задании написано) 0

Опции темы