Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.01.2015 13:12
- Информатика
- remove_red_eye 16090
- thumb_up 45
Ответы и объяснения 2
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Where(t->t mod 4=0).Sum.Println
end.
Пример
n= 15
16 -38 47 11 16 -16 -25 21 16 4 11 -18 -47 -41 19
36
- 07.01.2015 22:50
- thumb_up 39
const n=10;
var a: array[1..n] of integer;
i,sum: integer;
begin
sum:=0;
write('массив: ');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i],' ');
if a[i] mod 4=0 then sum:=sum+a[i];
end;
writeln;
write('сумма кратных 4: ',sum);
end.
- 08.01.2015 21:14
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.