Предмет: Информатика,
автор: 10masha
Пусть дана матрица А(n х m). Разработать приложение, позволяющее построить вектор, каждый элемент которого содержит наименьший по абсолютной величине элемент соответствующего столбца матрицы A.
Ответы
Автор ответа:
0
program test;
uses crt;
var
arr:array[1..5,1..10] of integer;
vec:array[1..10] of integer;
i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
arr[i,j]:=random(19)-9;
write(arr[i,j],' ');
end;
writeln;
end;
for j:=1 to 10 do
begin
vec[j]:=abs(arr[1,j]);
for i:=1 to 5 do
if vec[j]>abs(arr[i,j]) then vec[j]:=abs(arr[i,j]);
end;
writeln;
for i:=1 to 10 do
write(vec[i],' ');
end.
uses crt;
var
arr:array[1..5,1..10] of integer;
vec:array[1..10] of integer;
i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
arr[i,j]:=random(19)-9;
write(arr[i,j],' ');
end;
writeln;
end;
for j:=1 to 10 do
begin
vec[j]:=abs(arr[1,j]);
for i:=1 to 5 do
if vec[j]>abs(arr[i,j]) then vec[j]:=abs(arr[i,j]);
end;
writeln;
for i:=1 to 10 do
write(vec[i],' ');
end.
Приложения:
Похожие вопросы
Предмет: Химия,
автор: Gfdgyhh
Предмет: Русский язык,
автор: YokoWhale
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: 123alish
Предмет: Химия,
автор: Maminayagodka93