Решить по паскалю. дан целочисленный массив из 30 - вопрос №511931930 от timon040805 03.06.2020 18:38

Question

Информатика: Решить по паскалю. дан целочисленный массив из 30 элементов,элементы массива могут принимать значения от 0 до 100.напишите эффективную программу которая позволит найти и вывести на печать сумму элементов делющихся на 5 без остатка.известно,что в массиве есть хотябы один элемент делящийся на 5 без остатка

timon040805 · Answer

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....