Создать массив целых чисел, найти сумму четных элементов массива, результат вывести на экран

2

Ответы и объяснения

2013-11-20T19:31:42+00:00
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.



вернее mod 2=0 далеко не остаток от деления. как раз так и находится кол-во четных элементов!!!
http://pastebin.com/LWXTJeFU на паскале, писал по памяти
ты писал через генератор случайных чисел, я писала через ввод с клавиатуры.
Какая разница, заменить random() на readln().
дак и я о том же,что никакой
2013-11-20T19:41:09+00:00
На 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;