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

Question

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

Answer 1

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.

Comments

Эм...imod? Может это delphi конечно, но в pascal был только mod который выдавал остаток от деления...и при делении четного число на 2 остаток равен нулю.

---

Во-первых,это ошибка в спешке. В истории видно сколько я уже их исправила. А во-вторых, простите, но какого хр*на добавлять задание и просить помощи, если самому известно, как решить?!!!!!!

---

Эм, добавлял и просил решения не я.

---

mod -это далеко не остаток. Возможно ты расскажешь нашему преподавателю о своих познаниях и он объяснит все четко и доступно. Наверное человек, у которого стаж более 30 лет лучше знает, чем ты. Мы это проходили когда начинали изучать Паскаль в академии.

---

уже вижу. ну ок. тогда,раз я не правильно решаю, реши сам и не для Perl,который НЕ изучают не в одной школе, а для Паскаля.

---

вернее mod 2=0 далеко не остаток от деления. как раз так и находится кол-во четных элементов!!!

---

http://pastebin.com/LWXTJeFU на паскале, писал по памяти

---

ты писал через генератор случайных чисел, я писала через ввод с клавиатуры.

---

Какая разница, заменить random() на readln().

---

дак и я о том же,что никакой

Answer 2

На Perl:
#!/usr/bin/perl
for($i=0; $i<100; $i++){<br>  @arr[i]=int(rand(100));
  if (@arr[i]%2==0){[email protected][i]}
};
print $sum;