Найти минимальный элемент в каждом столбце матрицы

@Veroniksa · Регистрация: 03.11.2017

Author24 — интернет-сервис помощи студентам

Дана квадратная вещественная матрица размерности n. Вывести на экран
минимальное значение в каждом столбце.
Задание работы оформить с использованием функций и процедур. Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру.
Текст программы:

Pascal

Program lab5;
Uses Crt;
var
n,i,j,x: integer;
V:array[1..100,1..100] of integer;
M:array[1..100] of integer;
BEGIN
randomize;
write('vvedite razmer matricy '); readln(n);
for j:=1 to n do
begin
for i:=1 to n do
begin
V[i,j]:=random(100);
end;
writeln;
end;
CLRSCR;
for j:=1 to n do
begin
M[j]:=V[1,j];
for i:=1 to n-1 do
if M[j]>V[(i+1),j] then M[j]:=V[(i+1),j]
end;
writeln('matrica');
for i:=1 to n do
begin
for j:=1 to n do
write(V[i,j],' ');
writeln
end;
writeln('minimale znachenia stolbcov');
for j:=1 to n do write(M[j],' ');
readln;
END.

@vlisp · 12.11.2017, 00:17

Начни с определения типов и вообще понимания того, чем вектор от матрицы отличается

@vlisp 621 / 941 / 150 Регистрация: 10.08.2015 Сообщений: 5,018
	12.11.2017, 00:17	2
	Начни с определения типов и вообще понимания того, чем вектор от матрицы отличается 0