Составить алгоритм поиска суммы всех элементов массива целых чисел, кратные 3. Размерность массива - 20. Заполнение массива осуществляется случайными числами от 200 до 300.
(пример как делать прикрепил)
(пример как делать прикрепил)
More Questions From This User See All
Answers & Comments
const
n=20;
type
mas = array [1..n] of integer;
procedure search(massive : mas);
var j,s : integer;
begin
s:=0;
for j:=1 to n do
if massive[j] mod 3 = 0 then
s := s + massive[j];
writeln;
writeln('сумма чисел кратных 3: ', s);
end;
var
i, k : integer;
a : mas;
begin
write('массив:');
for i:=1 to n do
begin
a[i]:=random(100)+200;
write(a[i]:4)
end;
search(a);
end.