Заполнить массив из 25 элементов случайными числами в интервале (20, 100) и вычислить сумму всех элементов массива А, которые делятся на 3
Заполнить массив из 25 элементов случайными числами в интервале (20, 100) и вычислить сумму всех элементов массива А, которые делятся на 3
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
uses crt;
const n=25;
type
mas = array[1..n] of integer;
var a : mas;
i,s:integer;
begin
ClrScr;
for i:=1 to n do a[i]:=random(80)+20;
for i:=1 to n do write(a[i]:5);
writeln;
for i:=1 to n do
if a[i] mod 3 = 0 then s:=s+a[i];
writeln('Сумма элементов делящихся на 3 = ',s);
readln;
end.