Вопрос по информатике:
Сгенерировать 100 случайных чисел в диапозоне от 10 до 20, вычеслить сумму четных чисел
- 22.06.2018 22:01
- Информатика
- remove_red_eye 2589
- thumb_up 34
Ответы и объяснения 1
Program p1;
const n=100;
var a:array[1..100]of integer;
i,s:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(10,20);
end;
for i:=1 to n do
begin
if a[i] mod 2=0 then s:=s+a[i];
end;
Writeln('Сумма чётных чисел = ',s);
end.
- 23.06.2018 17:38
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.