Напишите программу на паскале. В двумерном массиве Z[1 ... 5,1 ... 5]найти наименьший элемент среди элементов вспомогательной (побочной) диагонали

Question

Информатика

Афинодор

25 апреля, 21:55

Напишите программу на паскале. В двумерном массиве Z[1 ... 5,1 ... 5]найти наименьший элемент среди элементов вспомогательной (побочной) диагонали

+1

Ответы (1)

Знаете ответ на вопрос?

Марийка · Answer 1

var Z:array[1 ... 5,1 ... 5] of real;

i, j: integer;

min: real;

begin

for i : = 1 to 5 do

for j : = 1 to 5 do

readln (Z[i, j]) ;

min : = Z[1,5];

for i : = 2 to 5 do

if (min > Z[i, 6-i]) then

min : = Z[i, 6-i];

writeln ("Min value is ", min)

end.