Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 200991
28.05.2021, 09:10
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты! Прошу вас мочь с заданиемна:
Написать программу на Паскаль турбо
В двумерном массиве А[5, 8] найти минимальный элемент каждой из строк
и минимальный элемент каждого из столбцов. Для поиска минимального использовать подпрограмму, которая находит минимальной элемент в одной
строке, а для поиска максимального - функцию которая находит максимальный
элемент в одном столбце.

Обсуждение

давно
puporev
Профессор
401888
1232
28.05.2021, 09:31
общий
это ответ
[code lang=pascal]uses crt;
const m=5;
n=8;
type mtr=array[1..m,1..n]of integer;
function min(a:mtr;k:integer):integer;
var j,mn:integer;
begin
mn:=a[k,1];
for j:=2 to n do
if a[k,j]<mn then mn:=a[k,j];
min:=mn;
end;
function max(a:mtr;k:integer):integer;
var i,mx:integer;
begin
mx:=a[1,k];
for i:=2 to m do
if a[i,k]>mx then mx:=a[i,k];
max:=mx;
end;
var a:mtr;
i,j:integer;
begin
clrscr;
randomize;
writeln('Мин':n*3+10);
for i:=1 to m do
begin
write(' ':4);
for j:=1 to n do
begin
a[i,j]:=10+random(90);
write(a[i,j]:3);
end;
writeln(min(a,i):5);
end;
write('Макс');
for j:=1 to n do
write(max(a,j):3);
end.[/code]
Форма ответа