Предмет: Информатика,
автор: Loooser
Программа на языке Паскаль.
Дана матрица
размера M*N. Найти минимальный среди максимальных элементов
ее столбцов.
Для отладки программы
элементы матрицы сформировать с помощью генератора случайных чисел.
Так же составить блок-схему.
Ответы
Автор ответа:
0
uses crt;
const n=4;
m=4;
var a: array [1..n,1..m] of integer;
b: array [1..100] of integer;
x,y,z,max,min,k: integer;
begin
z:=1;
for x:=1 to n do begin
for y:=1 to m do
begin
a[x,y]:=random(20);
write(a[x,y]:3);
end;
writeln;
end;
for y:=1 to m do begin
max:=a[1,y];
for x:=1 to n do
if a[x,y]>max then max:=a[x,y];
b[z]:=max;
inc(z);
end;
min:=b[1];
k:=z-1;
for z:=1 to n do
if b[z]<min then min:=b[z];
writeln;
writeln(min);
end.
---
Блок-схема во вложении
const n=4;
m=4;
var a: array [1..n,1..m] of integer;
b: array [1..100] of integer;
x,y,z,max,min,k: integer;
begin
z:=1;
for x:=1 to n do begin
for y:=1 to m do
begin
a[x,y]:=random(20);
write(a[x,y]:3);
end;
writeln;
end;
for y:=1 to m do begin
max:=a[1,y];
for x:=1 to n do
if a[x,y]>max then max:=a[x,y];
b[z]:=max;
inc(z);
end;
min:=b[1];
k:=z-1;
for z:=1 to n do
if b[z]<min then min:=b[z];
writeln;
writeln(min);
end.
---
Блок-схема во вложении
Приложения:

Похожие вопросы
Предмет: Русский язык,
автор: Ashirimbetskaya
Предмет: Обществознание,
автор: Аноним
Предмет: Информатика,
автор: Аноним
Предмет: Биология,
автор: Kolya2014
Предмет: Алгебра,
автор: Котенок98