Ввести матрицу А(5,6). Найти минимальный элемент в каждом столбце матрицы и записать их в виде одномерного массива. Массив вывести на печать с заголовком «Массив минимумов». Поиск минимумов оформить процедурой. Для В(7, 9) анал...
Ввести матрицу А(5,6). Найти минимальный элемент в каждом столбце
матрицы и записать их в виде одномерного массива. Массив вывести на печать с
заголовком «Массив минимумов». Поиск минимумов оформить процедурой. Для
В(7, 9) аналогично.
Гость
Ответ(ы) на вопрос:
Гостьprogram gt;
const n=5;m=6;
var i,j:integer;
a:array[1..100,1..100]of integer;
procedure minimum(n,m:integer);
var i,j,min:integer;
begin
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
writeln('Массив минимумов');
for i:=1 to n do
begin
min:=a[i,1];
for j:=1 to m do
if(a[i,j]
Гостьtype mas=array[,]of integer;
var
i,j:integer;
a:mas;
b:mas;
procedure masmin(a:array[,]of integer);
var
n,m,i,j:integer;
c:array of integer;
begin
n:=length(a,0)-1;
m:=length(a,1)-1;
setlength(c,m+1);
writeln('Массив минимумов:');
for i:=1 to m do
begin
for j:=1 to n do
begin
if j=1 then c[i]:=a[j,1];
if a[j,i]
Не нашли ответ?
Похожие вопросы