Помогите написать программу на паскале

[mTl]

Нужно написать программу на паскале вот про что: найти в каждой строке матрицы максимальные и минимальные элементы и поместить их на место первого и последнего элемента строки соответсвтенно. Матрицу напечатать в общепринятом виде. N=20, M=10.
Т.к в паскале не селён прошу вашей помощи, простые задачи ещё сам могу написать, а эту не как не получается.

[yulia]

А есть хоть что-то? Что именно не получается?

[mTl]

Я просто ваще не понимаю что от меня хотят, я плохо имею представления как это вообще возможно сделать, т.к с массивами ваще дуб дубом....

[Lemo]

Наброски:

program Laba3;
   {$APPTYPE CONSOLE }
uses SysUtils, math;
const m=20; n=10;
var MAS: array[1..m, 1..n] of byte;
    min,max: byte;
    i,j: integer;

begin
 randomize;
 for i:=1 to m do begin
  for j:= 1 to n do begin
   MAS[i,j]:= random(100);
   write(MAS[i,j]:2,' ');
  end;
  writeln;
 end;
 writeln('- - - - -');

 min:=1; max:=1;
 for i:=1 to m do
  for j:=1 to n do begin
   if MAS[i,j]<min then min:=MAS[i,j];
   if MAS[i,j]>max then max:=MAS[i,j];
  end;
  writeln ('min=',min);

  writeln ('max=',max);
  readln;

 end.

[alex_fcsm]

uses crt;
const m=20; n=10;
var A: array[1..m, 1..n] of byte;
    min,max: byte;
    i,j,l,r,temp: integer;

begin
clrscr;
 randomize;
 for i:=1 to m do begin
  for j:= 1 to n do begin
   A[i,j]:= random(100);
   write(A[i,j]:2,' ');
  end;
  writeln;
 end;
 writeln('=============================');
 for i:=1 to m do
  begin
  l:=1;r:=1;
  min:=a[i,1];
  max:=a[i,1];
  for j:=2 to n do
   if a[i,j]>max then begin
                      l:=j;max:=a[i,j];
                        end
      else if a[i,j]<min then begin
                               r:=j;min:=a[i,j];
                              end;
   if (l=1) and (r=n) then begin
                       a[i,1]:=max;a[i,n]:=min;
                       end
   else  begin
          if r<>1 then  temp:=a[i,n];a[i,n]:=min;a[i,r]:=temp;
          if l<>n then  temp:=a[i,1];a[i,1]:=max;a[i,l]:=temp;
         end;
  end;

  for i:=1 to m do begin
  for j:= 1 to n do
   write(A[i,j]:2,' ');
  writeln;
 end;
 writeln('=============================');
 end.

[mTl]

Спс все огромное,всё сделал.

[коржик1]

Помогите ,ПОЖАЛУЙТА, написать программу на паскале!! буду ОЧЕНЬ признательна!

Сформировать матрицу М вещественного типа в диапазоне [-3.0, 5.0].
Определить min и max элементы матрицы.
Поменять местами строки содержащие min и max элементы. Если оба они находятся в одной строке, то поменять местами столбцы.
Вывести исходную и полученную матрицы, max и min.

[alex_fcsm]

В чем проблемы? Выкладывайте наработки
И не забывайте про всемогущий поиск

[коржик1]

можете сказать в чем ошибки( программа должна форм матрицу 5х5, определить мах значение среди элементов, находящихся под главной диагональю)

Program sveta12;
Uses crt;
type matr=array[1..5,1..5] of real;
var
m,k,n:integer;
max:real;

procedure vvod(m,n:integer;var A:matr);
var
i,j:integer;
begin
for i:=1 to m do
for j:=1 to n do read (a[i,j]);
end;

procedure vivod(a:matr);
var
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j]:6,' ');
writeln;
end;

begin
vvod(5,5,A);
max:=a[1,m];
k:=1;
n:=m;
for i:=1 to m do
for j:=1 to i do
if A[i,j]>max then
begin
max:=A[i,j];
k:=i;
n:=j;
end;

writeln('maximum= ',max);
vivod(a);
readln;
end.

[alex_fcsm]

Основныеt ошибки - забыли объявить переменные(это касается i,j и a) - по-моему Вы путаете локальные и глобальные переменные
Разберитесь что значит под главной диагональю
Вывод я убрал. Логичнее сначала вывести матрицу а затем выводить макс ИМХО

Program sveta12;
Uses crt;
type matr=array[1..5,1..5] of real;
var i,j:integer;
     max:real;
    a:Matr;

procedure vvod(m,n:integer;var A:matr);
var i,j:integer;
begin
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:5:0);
end;
writeln;
end;
end;


procedure vivod(a:matr);
var
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j]:6:0,' ');
writeln;
end;
end;


begin
clrscr;
vvod(5,5,A);
max:=a[2,1];
for j:=1 to 5 do
begin
i:=j+1;
while (i<=5) do
 begin
  if max<a[i,j] then max:=a[i,j];
  inc(i);
 end;
end;
writeln('maximum= ',max);
readln;
end.