program gachi;
uses crt;
var a: array [1..10,1..10] of real;
i, j, n, m , kmax , lmax: integer;
max :real;
begin
clrscr;
writeln('Введите n<=10 , m<=10');
readln(n,m);
writeln('Введите элементы массива по строкам');
for i:=1 to n do BEGIN
WRITELN;
for j:=1 to m do begin
a[i,j]:=random(10);
write(a[i,j]:4,' ');
max:=a[1,1];
end;
kmax:=1;
lmax:=1;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
begin
max:=a[i,j];
kmax:=i;
lmax:=j;
end;
writeln;
writeln('max=', max:8:3);
writeln('max элементов: ',kmax);
writeln('строка - ', kmax,' столбец - ',lmax);
readln;
end.program gachi;
uses crt;
var a: array [1..10,1..10] of real;
i, j, n, m , kmax , lmax: integer;
max :real;
begin
clrscr;
writeln('Введите n<=10 , m<=10');
readln(n,m);
writeln('Введите элементы массива по строкам');
for i:=1 to n do BEGIN
WRITELN;
for j:=1 to m do begin
a[i,j]:=random(10);
write(a[i,j]:4,' ');
max:=a[1,1];
end;
kmax:=1;
lmax:=1;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
begin
max:=a[i,j];
kmax:=i;
lmax:=j;
end;
writeln;
writeln('max=', max:8:3);
writeln('max элементов: ',kmax);
writeln('строка - ', kmax,' столбец - ',lmax);
readln;
end.program gachi;
uses crt;
var a: array [1..10,1..10] of real;
i, j, n, m , kmax , lmax: integer;
max :real;
begin
clrscr;
writeln('Введите n<=10 , m<=10');
readln(n,m);
writeln('Введите элементы массива по строкам');
for i:=1 to n do BEGIN
WRITELN;
for j:=1 to m do begin
a[i,j]:=random(10);
write(a[i,j]:4,' ');
max:=a[1,1];
end;
kmax:=1;
lmax:=1;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
begin
max:=a[i,j];
kmax:=i;
lmax:=j;
end;
writeln;
writeln('max=', max:8:3);
writeln('max элементов: ',kmax);
writeln('строка - ', kmax,' столбец - ',lmax);
readln;
end.program gachi;
uses crt;
var a: array [1..10,1..10] of real;
i, j, n, m , kmax , lmax: integer;
max :real;
begin
clrscr;
writeln('Введите n<=10 , m<=10');
readln(n,m);
writeln('Введите элементы массива по строкам');
for i:=1 to n do BEGIN
WRITELN;
for j:=1 to m do begin
a[i,j]:=random(10);
write(a[i,j]:4,' ');
max:=a[1,1];
end;
kmax:=1;
lmax:=1;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
begin
max:=a[i,j];
kmax:=i;
lmax:=j;
end;
writeln;
writeln('max=', max:8:3);
writeln('max элементов: ',kmax);
writeln('строка - ', kmax,' столбец - ',lmax);
readln;
end.program gachi;
uses crt;
var a: array [1..10,1..10] of real;
i, j, n, m , kmax , lmax: integer;
max :real;
begin
clrscr;
writeln('Введите n<=10 , m<=10');
readln(n,m);
writeln('Введите элементы массива по строкам');
for i:=1 to n do BEGIN
WRITELN;
for j:=1 to m do begin
a[i,j]:=random(10);
write(a[i,j]:4,' ');
max:=a[1,1];
end;
kmax:=1;
lmax:=1;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
begin
max:=a[i,j];
kmax:=i;
lmax:=j;
end;
writeln;
writeln('max=', max:8:3);
writeln('max элементов: ',kmax);
writeln('строка - ', kmax,' столбец - ',lmax);
readln;
end.program gachi;
uses crt;
var a: array [1..10,1..10] of real;
i, j, n, m , kmax , lmax: integer;
max :real;
begin
clrscr;
writeln('Введите n<=10 , m<=10');
readln(n,m);
writeln('Введите элементы массива по строкам');
for i:=1 to n do BEGIN
WRITELN;
for j:=1 to m do begin
a[i,j]:=random(10);
write(a[i,j]:4,' ');
max:=a[1,1];
end;
kmax:=1;
lmax:=1;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
begin
max:=a[i,j];
kmax:=i;
lmax:=j;
end;
writeln;
writeln('max=', max:8:3);
writeln('max элементов: ',kmax);
writeln('строка - ', kmax,' столбец - ',lmax);
readln;
end.program gachi;
uses crt;
var a: array [1..10,1..10] of real;
i, j, n, m , kmax , lmax: integer;
max :real;
begin
clrscr;
writeln('Введите n<=10 , m<=10');
readln(n,m);
writeln('Введите элементы массива по строкам');
for i:=1 to n do BEGIN
WRITELN;
for j:=1 to m do begin
a[i,j]:=random(10);
write(a[i,j]:4,' ');
max:=a[1,1];
end;
kmax:=1;
lmax:=1;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
begin
max:=a[i,j];
kmax:=i;
lmax:=j;
end;
writeln;
writeln('max=', max:8:3);
writeln('max элементов: ',kmax);
writeln('строка - ', kmax,' столбец - ',lmax);
readln;
end.