Автор Макс задал вопрос в разделе Другие языки и технологии
Найти Мах элемент в каждой строке матрицы 4 на 4. и получил лучший ответ
Ответ от RaMpiR[гуру]
var
mat:array [1..4;1..4] of byte;
str,stolb:byte;
min:aray [1..4] of byte;
BEGIN
randomize;
for str:=1 to 4 do
min[str]:=0;
for stolb:=1 to 4 do
for str:=1 to 4 do
mat[str,stolb]:=random(10);
for stolb:=1 to 4 do
for str:=1 to 3 do
begin
if min[stolb] > mat[str,stolb] then
min[stolb]:=mat[str,stolb]
end;
for str=1 to 4 do
writeln(min[str]);
END.
если чо неясно спрашивай
малость попутал это для нахождения мин значения ну думаю на макс испраить небудет проблем
Источник: мозг
Ответ от Алексей Владимирович[гуру]
Немножко опоздал, зато без ошибок)) )uses crt;var i, j, m : integer; a: array[1..4,1..4] of integer; b: array[1..4] of integer;begin clrscr; for i:=1 to 4 do for j:=1 to 4 do begin write('a[',i,' ',j,'] = '); readln(a[i,j]); end; m:=0; for i:=1 to 4 do begin for j:=1 to 4 do begin if a[i, j]>m then m:=a[i,j] else end; b:=m; m:=0; end; for i:=1 to 4 do write(b,' '); readkey;end.
Немножко опоздал, зато без ошибок)) )uses crt;var i, j, m : integer; a: array[1..4,1..4] of integer; b: array[1..4] of integer;begin clrscr; for i:=1 to 4 do for j:=1 to 4 do begin write('a[',i,' ',j,'] = '); readln(a[i,j]); end; m:=0; for i:=1 to 4 do begin for j:=1 to 4 do begin if a[i, j]>m then m:=a[i,j] else end; b:=m; m:=0; end; for i:=1 to 4 do write(b,' '); readkey;end.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Найти Мах элемент в каждой строке матрицы 4 на 4.