дан целочисленный массив из 35 частей элементы массива могут принимать целые

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

Задать свой вопрос
1 ответ
Const N=35;
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 30 = 0 then s:=s+a[i];

writeln(s);

end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт