Лидеры рейтинга

ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

340

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Советник

267

Россия, Санкт-Петербург


ID: 400669

epimkin

Профессионал

254


ID: 137394

Megaloman

Мастер-Эксперт

122

Беларусь, Гомель


ID: 405239

al4293189

1-й класс

86


ID: 401888

puporev

Профессор

69

Россия, Пермский край


ID: 325460

CradleA

Мастер-Эксперт

65

Беларусь, Минск


8.9.8

01.08.2021

JS: 2.9.16
CSS: 4.5.14
jQuery: 3.6.0
DataForLocalStorage: 2021-08-03 10:16:01-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 200991

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: oligator.a.y (Посетитель)
Дата: 28.05.2021, 09:10 Консультация закрыта
Поступило ответов: 1

Здравствуйте, уважаемые эксперты! Прошу вас мочь с заданиемна:
Написать программу на Паскаль турбо
В двумерном массиве А[5, 8] найти минимальный элемент каждой из строк
и минимальный элемент каждого из столбцов. Для поиска минимального использовать подпрограмму, которая находит минимальной элемент в одной
строке, а для поиска максимального - функцию которая находит максимальный
элемент в одном столбце.

Ответ # 281239 от puporev
Код [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.

puporev

Профессор
28.05.2021, 09:31
Мини-форум консультации # 200991

Нет сообщений в мини-форуме

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 88

puporev

Профессор

Рейтинг: 69

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0

lamed

Академик

Рейтинг: 0