Помогите составить программы на языке Paskal ABC.
Сформировать целочисленный массив D(3,4) элемент которого больше 9, но меньше 75 a) Найти минимальный и максимальный элемент. b) Вычислить сумму элемента массива.
Кто это решит получит 34 балла. За ранние спасибо)

Предыдущий
вопрос Следующий
вопрос

Программа на языке Pascal ABC:

program MinMaxSumArray;
var
D: array[1..3,1..4] of integer;
i, j, min, max, sum: integer;
begin
// заполняем массив D элементами от 10 до 74
for i := 1 to 3 do
for j := 1 to 4 do
D[i,j] := Random(66) + 10; // генерируем случайное число от 10 до 75
// находим минимальный и максимальный элемент массива D
min := D[1,1];
max := D[1,1];
sum := 0;
for i := 1 to 3 do
for j := 1 to 4 do
begin
if D[i,j] < min then
min := D[i,j];
if D[i,j] > max then
max := D[i,j];
sum := sum + D[i,j];
end;
// выводим результаты
writeln('Минимальный элемент массива D: ', min);
writeln('Максимальный элемент массива D: ', max);
writeln('Сумма всех элементов массива D: ', sum);
end.

Эта программа создает массив D(3,4) со случайными элементами от 10 до 75, находит минимальный и максимальный элементы массива, а также вычисляет сумму всех элементов.