Создать массив целых чисел, найти сумму четных элементов массива, результат вывести на экран
Создать массив целых чисел, найти сумму четных элементов массива, результат вывести на экран
Гость
Ответ(ы) на вопрос:
Гость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.
ГостьНа Perl:
#!/usr/bin/perl
for($i=0; $i<100; $i++){
@arr[i]=int(rand(100));
if (@arr[i]%2==0){$sum+=@arr[i]}
};
print $sum;
Не нашли ответ?
Похожие вопросы