Вопрос по информатике:
Создать массив целых чисел, найти сумму четных элементов массива, результат вывести на экран
- 05.03.2018 00:11
- Информатика
- remove_red_eye 2703
- thumb_up 50
Ответы и объяснения 2
Const n=5;
var A:array [1..n] of integer;
i:byte;
S:integer;
begin
writeln ('vvedi mas A');
for i:=1 to n do
readln (A[i]);
S:=0;
for i:=1 to n do
if i mod 2=0 then
S:=S+A[i];
writeln ('S=',S);
readln;
readln
end.
- 06.03.2018 09:25
- thumb_up 19
На Perl:
#!/usr/bin/perl
for($i=0; $i<100; $i++){
@arr[i]=int(rand(100));
if (@arr[i]%2==0){[email protected][i]}
};
print $sum;
- 07.03.2018 23:28
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.