Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Определить максимальный элемент того столбца в котором находится минимальный элемент всей матрицы

.pas
Источник:
Скачиваний:
285
Добавлен:
04.03.2014
Размер:
716 б
Скачать
program ex1;
Задана матрица D[3,3]
Определить максимальный элемент того столбца, в котором находится
минимальный элемент всей матрицы
Напечатать исходную матрицу и максимальный элемент
var i,j,mi,ma,nc: integer;
var m: array[1..3,1..3] of integer;
begin
writeln('Введите исходную матрицу');
for i:=1 to 3 do
for j:=1 to 3 do read(m[i,j]);
writeln('Исходная матрица');
for i:=1 to 3 do
begin
for j:=1 to 3 do write(m[i,j]:4);
writeln
end;
mi:=m[1,1]; nc:=1;
for i:=1 to 3 do
for j:=1 to 3 do
if m[i,j] < mi then
begin
mi:=m[i,j];
nc:=j
end;
ma:=m[1,nc];
for i:=1 to 3 do
if m[i,nc] > ma then ma:=m[i,nc];
writeln('Максимальный элемент',ma)
end.