Вопрос по информатике:
Ввести матрицу А(5,6). Найти минимальный элемент в каждом столбце
матрицы и записать их в виде одномерного массива. Массив вывести на печать с
заголовком «Массив минимумов». Поиск минимумов оформить процедурой. Для
В(7, 9) аналогично.
- 08.02.2018 11:01
- Информатика
- remove_red_eye 2108
- thumb_up 19
Ответы и объяснения 2
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]
end;
end;
begin
minimum(n,m);
end.
- 09.02.2018 18:55
- thumb_up 51
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]
write(c[i],' ');
end;
writeln;
end;
begin
setlength(a,6,7);
writeln('Массив А:');
for i:=1 to 5 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
masmin(a);
writeln;
setlength(b,8,10);
writeln('Массив B:');
for i:=1 to 7 do
begin
for j:=1 to 9 do
begin
b[i,j]:=random(10);
write(b[i,j],' ');
end;
writeln;
end;
masmin(b);
end.
- 01.01.1970 00:00
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.