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

Знаток228111 Знаток228111    3   19.07.2019 06:10    1

Ответы
OoMaRиNкАoO OoMaRиNкАoO  03.10.2020 07:39
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика