Главное меню

Вход на сайт

Кто на сайте?

Сейчас 140 гостей и ни одного зарегистрированного пользователя на сайте

Задана матрица А(n,m). Для выполнения действий над элементами матрицы в соответствии с данными, приведенными в таблице написать программу на языке Pascal.

Количество строк n=20
Количество столбцов m=10
Результат – одномерный массив

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

Решение

const n=20;m=10;
var A:array [1..n,1..m] of integer;
    MinA:array[1..m] of integer;
    i,j,min:integer;
begin
writeln;
writeln('Vvedite elementy massiva:');
for i:=1 to n do
for j:=1 to m do
read(A[i,j]);
for j:=1 to m do begin
min:=a[1,j];
for i:=2 to n do
    if a[i,j]<min then min:=a[i,j];
minA[j]:=min;
end;
writeln('Minimal elementy stolbtsov:');
for j:=1 to m do
write(minA[j],' ');
readln;
end.

У Вас недостаточно прав для добавления комментариев.
Вам необходимо зарегистрироваться на сайте