Максимальный элемент всей матрицы

Посмотреть архив целиком
program kvadratnaya_matriza;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a:array[1..10,1..15] of integer;
i,j,n,max,imax,jmax:integer;
max2,imax2,jmax2:integer;
begin
{Задание матрицы}
writeln('Vvedite kol-vo strok/stolbzov');
readln(n);
writeln('Vvedite matrizy');
for i:=1 to n do begin
for j:=1 to n do read (a[i,j]);
readln;
end;

{Перебрать все элементы матрицы и найти максимальный}

max:=a[1,1];
imax:=1;
jmax:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]>max then
begin
max:=a[i,j];
imax:=i;
jmax:=j;
end;
writeln('Maksimalnii element ',max,' stoit v stroke ',imax,' i ',jmax,' stolbze');
readln;





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.