Ребят помогите пожалуйста решить задачу по Паскалю. Дан целочисленный массив из 30 элементов,элементы массива могут принимать значения от 0 до 100.Напишите эффективную программу которая позволит найти и вывести на печать сумму ...
Ребят помогите пожалуйста решить задачу по Паскалю.
Дан целочисленный массив из 30 элементов,элементы массива могут принимать значения от 0 до 100.Напишите эффективную программу которая позволит найти и вывести на печать сумму элементов делющихся на 5 без остатка.Известно,что в массиве есть хотябы один элемент делящийся на 5 без остатка
Гость
Ответ(ы) на вопрос:
Гостьvar n, i, a, sum: Integer;
Begin
sum := 0;
readln(n);
for i := 1 to n do begin
read(a);
if a mod 5=0 then sum := sum + a;
end;
writeln(sum);
End.
Не нашли ответ?
Похожие вопросы