Безотлагательно ПОЖАЛУЙСТА ,Необходимо НАПИСАТЬ ПРОГРАММУ.1.Дан массив чисел ,найти сумму частей больше

Безотлагательно ПОЖАЛУЙСТА ,Необходимо НАПИСАТЬ Программку.
1.Дан массив чисел ,отыскать сумму частей больше 10 и меньше 20

Задать свой вопрос
1 ответ

var a:array[1..N] of integer;

s,K:integer;

begin

readln(K);

for i:=1 to N do readln(a[i]);

for i:=1 to N do

if (a[i] mod K=0) then s:=s+a[i];

write(s);

end. 

Кристина Митрясева
Во 2-ой строке,так и писать s,k?
Хобишев Тимур
Да
Ирина Сковородник
Это что я знаю.
Агата Шаваева
Спасибо
Илюшка Потешин
Не за что)
Оксана Брциева
))
Ембулатова Эльвира
А что значит N?
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт