Вопрос Программа на паскале

[Devil301094]

Было бы здорово если кто-нибудь помог с этим)

Программа которая считывает с клавиатуры матрицу 12х12 и осуществляет поиск минимального элемента, принадлежащий множеству элементов, расположенных в нечётных столбцах таблицы

 

[kaxo]

что за фигня. Брось этот Паскаль, учи луше Python или Java

 

[дедушка]

min := matrix[1, 1];
for i := 1 to 12 do
for j := 1 to 6 do
if matrix[i, j * 2 - 1] < min then min := matrix[i, j * 2 - 1];
writeln(min) Просто обходим в цикле не всю матрицу, а только нечётные столбцы.

 

[Joker74]

google.com

 

[ati200]

var a: array[1..12, 1..12] of integer;
i, j, min: integer;
begin
min := maxint;
for i := 1 to 12 do
for j := 1 to 12 do
read(a[i, j]);

for i := 1 to 12 do
for j := 2 to 12 do
if (j mod 2 = 1) and (a[i, j] < min) then
min := a[i, j];

writeln('Minimal element: ', min);
end.