Двумерные массивы. В задаче реализовать заполнение массива, вывод на экран исходного массива и измененного

Posted by obzor under Delphi

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

Stilet

var a:array[1..10,1..10] of integer; i,j,m:integer;
begin
 for i:=1 to 10 do for i:=1 to 10 do begin a[ i,j]:=i; if a[ i,j]<m then m:=a[ i,j]; end;
 for i:=1 to 10 do for i:=1 to 10 do begin a[ i,j]:=i; if a[ i,j]=m then writeln(i:10,j:10) end;
 readln;
end.

тема на форуме

Похожие статьи

• Циклы, реализовать без использования массивов
• Задачники для delphi
• Аналоги динамических массивов в TP и PascalABC?
• Как найти расстояние между точками
• Связанные списки в Паскаль/Delphi
• Брутфорс (полный перебор)
• Как вывести русский текст в графическом режиме? Pascal.
• Операторы преобразования классов is и as
• turbo pascal – турбо паскаль скачать бесплатно