В двумерном массиве Z[1..5,1..5] найти наименьший элемент среди элементов вспомогательной диагонали. вывести на экран его индексы и значение. Пожалуйста, не используйте заумных проограмм, составьте её для Паскаля на уровне 9 кл...
В двумерном массиве Z[1..5,1..5] найти наименьший элемент среди элементов вспомогательной диагонали. вывести на экран его индексы и значение. Пожалуйста, не используйте заумных проограмм, составьте её для Паскаля на уровне 9 класса. Большое спасибо.
Гость
Ответ(ы) на вопрос:
Гостьconst
n= 5;
var
i,j,max: integer;
a: array [1..5,1..5] of integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:= random(10);
write(a[i,j],' ')
end;
writeln
end;
max:= a[n,1];
for i:=1 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln(max)
end.
Не нашли ответ?
Похожие вопросы