Вопрос по информатике:
Тема: Одномерные массивы.
В паскале в массиве даны 10 целых чисел.
Нужно найти сумму четных чисел.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.06.2017 15:41
- Информатика
- remove_red_eye 17389
- thumb_up 39
Ответы и объяснения 1
Var
A: Array[0..9] of Integer;
i, Sm: Integer;
begin
Sm:=0;
for i:=0 to 9 do
A[i]:=Random(300) - 20;
for i:=0 to 9 do
if (A[i] Mod 2 = 0) then
Sm:=Sm + A[i];
WriteLn('Sum = ', Sm);
end.
- 27.06.2017 20:21
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.