В массиве,состоящем из 10 случайных чисел в интервале[-20;10],определите количество и сумму элементов кратных 3.Pascal ABC.9класс
В массиве,состоящем из 10 случайных чисел в интервале[-20;10],определите количество и сумму элементов кратных 3.Pascal ABC.9класс
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SumAndCountMultiplesOfThree;
var
arr: array[1..10] of integer;
i, count, sum: integer;
begin
count := 0;
sum := 0;
randomize;
for i := 1 to 10 do
if arr[i] mod 3 = 0 thenbegin
arr[i] := random(31) - 20;
writeln('Element ', i, ': ', arr[i]);
begin
count := count + 1;
sum := sum + arr[i];
end;
end;
writeln('Number of elements divisible by 3: ', count);
writeln('Sum of elements divisible by 3: ', sum);
end.