Пусть дана матрица А(n х m). Разработать приложение, позволяющее построить вектор, каждый элемент которого содержит наименьший по абсолютной величине элемент соответствующего столбца матрицы A.
Пусть дана матрица А(n х m). Разработать приложение, позволяющее построить вектор, каждый элемент которого содержит наименьший по абсолютной величине элемент соответствующего столбца матрицы A.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы