Массив. Напишите программу. Паскаль. В массиве размерностью 6х6 вычислить сумму элементов массива кратных 3 и превышающих по значению минимальный в 2 раза.

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

program SumOfElements;
const
SIZE = 6;
var
arr: array[1..SIZE, 1..SIZE] of Integer;
i, j, min, sum: Integer;
begin
// Заполняем массив случайными значениями
Randomize;
for i := 1 to SIZE do
begin
for j := 1 to SIZE do
begin
arr[i, j] := Random(50); // случайные числа от 0 до 50
Write(arr[i, j]:4);
end;
Writeln;
end;

// Находим минимальное значение в массиве
min := 50; // максимальное значение
for i := 1 to SIZE do
begin
for j := 1 to SIZE do
begin
if (arr[i, j] < min) then
min := arr[i, j];
end;
end;

// Вычисляем сумму элементов массива кратных 3 и превышающих минимальное значение в 2 раза
sum := 0;
for i := 1 to SIZE do
begin
for j := 1 to SIZE do
begin
if (arr[i, j] mod 3 = 0) and (arr[i, j] > min * 2) then
sum := sum + arr[i, j];
end;
end;

Writeln('Сумма элементов массива кратных 3 и превышающих минимальное значение в 2 раза: ', sum);
end.