Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Опишите на русском языке или на одном из языков программирования алгоритм, позволяющий найти и вывести сумму элементов масс...

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Опишите на русском языке или на одном из языков программирования алгоритм, позволяющий найти и вывести сумму элементов массива, кратных тринадцати. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого делится на тринадцать. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. const N=30; var a: array [l..N] of integer; i,j,s: integer; begin for i:=l to N do readln(a[i]); ... end.
Гость
Ответ(ы) на вопрос:
Гость
const N=30; var a: array [1..N] of integer;  i,j,s: integer; begin s:=0; for i:=1 to N do readln(a[i]); for i:=1 to N do  if a[i] mod 13 = 0 then s:=s+a[i]; writeln(s); end.   Вопросы, недочеты в ЛС
Не нашли ответ?
Ответить на вопрос
Похожие вопросы