Составить программу по условию: дан массив из 10 элементов.Найти сумму элементов, кратных 3 и двузначных. Массив задан случайно
на паскале

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

program SumOfMultipleOf3;
var
arr: array[1..10] of integer;
i, sum: integer;
begin
sum := 0;

Randomize;

for i := 1 to 10 do
begin
arr[i] := Random(90) + 10; // генерация случайного двузначного числа
writeln('arr[', i, '] = ', arr[i]);

end;

writeln('Сумма элементов, кратных 3 и двузначных: ', sum);
end.