Данна матрица 4Х5 построить одномерный массив b состоящий из наименьших значений элементов строк.
Ответы
Ответ дал:
0
Пример на VBA Excel
Программу можно посмотреть нажав Alt+F11
Программу можно посмотреть нажав Alt+F11
Приложения:
Ответ дал:
0
Turbo Pascal
Ответ дал:
0
uses crt;
var m:array[1..4,1..5] of integer;
b:array[1..4] of integer;
min,i,j:integer;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
m[i,j]:=random(35)-30;
end;
end;
for i:=1 to 4 do
begin
for j:=1 to 5 do
write(m[i,j]:3,' ' );
writeln;
end;
min:=m[1,1];
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
if min>m[i,j] then min:=m[i,j];
end;
b[i]:=min;
min:=m[i+1,1];
end;
for i:=1 to 4 do
writeln(i,') ',b[i]);
readkey;
end.
var m:array[1..4,1..5] of integer;
b:array[1..4] of integer;
min,i,j:integer;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
m[i,j]:=random(35)-30;
end;
end;
for i:=1 to 4 do
begin
for j:=1 to 5 do
write(m[i,j]:3,' ' );
writeln;
end;
min:=m[1,1];
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
if min>m[i,j] then min:=m[i,j];
end;
b[i]:=min;
min:=m[i+1,1];
end;
for i:=1 to 4 do
writeln(i,') ',b[i]);
readkey;
end.
Приложения:
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад