Дан двумерный массив m*n , заполните его числами, найти наибольший элемент в каждой строке, вывести его значения и координаты.
Решить в Pascal. Перед тем как выкладывать ответ, проверьте решение.
Ответы
Ответ дал:
0
var
mj,max,i,j,m,n:integer;
mas:array[1..999,1..999] of integer;
begin
randomize;
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(mas[i,j]);
for i:=1 to m do
begin
mj:=-maxint;
max:=-maxint;
for j:=1 to n do
if mas[i,j] > max then
begin
mj:=j;
max:=mas[i,j];
end;
writeln('[',i,';',mj,'] = ',max);
end;
end.
mj,max,i,j,m,n:integer;
mas:array[1..999,1..999] of integer;
begin
randomize;
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(mas[i,j]);
for i:=1 to m do
begin
mj:=-maxint;
max:=-maxint;
for j:=1 to n do
if mas[i,j] > max then
begin
mj:=j;
max:=mas[i,j];
end;
writeln('[',i,';',mj,'] = ',max);
end;
end.
Ответ дал:
0
Скинь скрин экрана с проверкой экрана.
Ответ дал:
0
В чём проблема? Всё работает правильно! Вот скрин http://s7.hostingkartinok.com/uploads/images/2014/10/e3743c53586d690db7c8592d68e98c66.png
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад