Question

Задача в Pascal ABC:
Случайным образом задать двумерный массив из 5 строк и 8 столбцов. Диапазон от 11 до 30. Вывести его на экран. Найти максимальный элемент массива. Найти минимальный элемент массива. Вывести на экран их сумму.

Answer 1

Можно так. Не спрашивайте, зачем такие сложные конструкции.

const M = 5;

const N = 8;

var A: array [1..M,1..N] of integer;

var i,j,max,min: integer;

begin

max:=11;

min:=11;

randomize();

For i:= 1 to M do

begin

 For j:= 1 to N do

 begin

 A[i,j]:=random(20)+11;

 if (A[i,j]<A[min div 10,min mod 10]) then min:=i*10+j;

 if (A[i,j]>A[max div 10,max mod 10]) then max:=i*10+j;

 write(A[i,j]:4);

 end;

 writeln();

end;

writeln('Максимальный элемент массива: ',A[max div 10,max mod 10]);

writeln('Минимальный элемент массива: ',A[min div 10,min mod 10]);

writeln('Их сумма: ',A[max div 10,max mod 10]+A[min div 10,min mod 10]);

end.