помогите с поиском max элементов строк матрицы в Паскале

[annexion]

помогите пожалуйста с созданием программы.
Разработка в среде Turbo Pascal программы поиска максимальных элементов строк матрицы.
Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали.
для отладки программы элементы матрицы сформировать с помощью генератора случайных чисел.

[Stilet]

Ну выкладывай идеи, наработки.

[annexion]

Из правил форума:
Хотите помочь, пишите конкретный ответ. Если вы новичок публикуйте свои темы в раздел "помощь студентам", так будут относиться к вам соответствующе, так как все мы когда-то были новичками и много не знали.

[Xardas]

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

Из правил форума:
Хотите помочь, пишите конкретный ответ. Если вы новичок публикуйте свои темы в раздел "помощь студентам", так будут относиться к вам соответствующе, так как все мы когда-то были новичками и много не знали.

Это Вы зря так!!! Stilet прав... надо же самому тоже что-то делать, а не надеятся все время на кого-то другого...

const row=10; col=row;
var
//опишите переменные
begin
//заполните массив
for i:=1 to row do 
begin
max:=mas[i,1];
for j:=1 to col do
if mas[i,j]>max then
begin
max:=mas[i,j];
maxi:=i;
maxj:=j;
end;
buf:=mas[i,i];
mas[i,i]:=mas[maxi,maxj];
mas[maxi,maxj]:=buf;
end;
//выведите результат
end;

Не проверял, остальное доделаете, ничего сложного...

[A1kid]

Помгите решить эту же задачу (Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали), но на языке С++.
Вот что сам придумал:
# i n c l u d e <iostream.h>
# i n c l u d e <iomanip.h>
# i n c l u d e <conio.h>
# i n c l u d e < s t d l i b . h>
#define n 5
v o i d main()
{ i n t i , j , ImaxA,JmaxA,A[n] [ n ];
c l r s c r ( ) ;
r a n d o m i z e ( ) ; //Установка датчика случайных чисел
f o r ( i = 0 ; i<n; i++)
{ for(j=0; j<n; j++)
{ A[i] [j]=rand()%100;
cout<<setw(6) « A [ i ] [ j ];
}
c o u t « e n d l ;
}
ImaxA=JmaxA=0;
f o r ( i = 0 ; i<n; i++)
{ f o r ( j = 0 ; j<n; j++)
i f (A[i][j]>A[ImaxA][JmaxA])
{ ImaxA=i; JmaxA=j; }
}
соии<"Максимальное_значение: ["<<ImaxA«"] ["
<<JmaxA<<"]=" <<A[ImaxA][JmaxA];
}

здесь должно вычистляться максимальное число матрицы, но она почему то не рботает, что то с функцией рандомиз, может компилятор не воспринитмает? Ну это не особо важно, помогите с самой задачей (Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали)