Определить сумму элементов массива, значения которых кратны 3 (с использованием while и for) - Pascal ABC
Формулировка задачи:
Дан Одномерный числовой массив. Определить сумму элементов массива, значения которых кратны 3, использовать while и for
нужно прям очень срочно, выручите кто очень хорошо разбирается, для вас это за минуту пишется я уверен
Решение задачи: «Определить сумму элементов массива, значения которых кратны 3 (с использованием while и for)»
textual
Листинг программы
const
m = 10;
var A:array[1..m] of integer;
i,sum: integer;
begin
writeln('Исходный массив:');
for i:=1 to m do
begin
A[i]:=-9 + random(18);
write(A[i]:3);
end;
writeln;
// через for
sum:=0;
for i:=1 to m do
if A[i] mod 3 = 0 then
sum:=sum + A[i];
writeln('Сумма элементов: ', sum);
//через while
sum:=0;
i:=0;
while i < m do
begin
inc(i);
if A[i] mod 3 = 0 then
sum:=sum + A[i];
end;
writeln('Сумма элементов: ', sum);
end.