Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 138560
29.05.2008, 19:48
0.00 руб.
0 1 1
Компьютеры Программирование
Дан двумерный массив размерностью N x M, найи минимальный и максимальный элементы каждой строки данного массива.

Обсуждение

давно
puporev
Профессор
401888
1232
30.05.2008, 17:51
общий
это ответ
Здравствуйте, Степанов Александ Сергеевич!
Решение в приложении.

Приложение:
uses crt; var a:array[1..20,1..20]of integer; n,m,i,j,max,min:integer; begin clrscr; write(‘Kolichestvo strok= ‘);readln(m); write(‘Kolichestvo stolbcov= ‘);readln(n); randomize; Writeln(‘Matrica:‘); {создание и вывод исходной матрицы} for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(21)-10; write(a[i,j]:4); end; writeln; end; readln; for i:=1 to m do {поиск макс и мин в строках} begin max:=a[i,1];min:=a[i,1]; for j:=1 to n do begin if a[i,j]>max then begin max:=a[i,j]; end else if a[i,j]<min then begin min:=a[i,j]; end; end; writeln(‘V stroke ‘,i,‘ max=‘,max,‘ mim=‘,min); end; writeln; for j:=1 to n do {поис макс и мин в столбцах} begin max:=a[1,j];min:=a[1,j]; for i:=1 to m do begin if a[i,j]>max then begin max:=a[i,j]; end else if a[i,j]<min then begin min:=a[i,j]; end; end; writeln(‘V stolbce ‘,j,‘ max=‘,max,‘ mim=‘,min); end; readln end.
Форма ответа