Помогите пожалуйста, поблагодарю:написать программу которая суммирует все четные числа...

Question

Помогите пожалуйста, поблагодарю:
написать программу которая суммирует все четные числа введенные с клавиатуры ( ввести 6 чисел)

Answer 1

Program p1;
var a,n,sum:integer;
begin
for a:=1 to 6 do begin
readln(n);
if n mod 2=0 then sum:=sum+n;
end;
writeln('sum=',sum);
end.

Comments

Не верно

---

Мало того что не по заданию,дак еще и не работает

---

Исправил.

---

мне нужно на программу паскаль

---

Теперь работает. Пользуйтесь.

---

спасибо

Answer 2

Это метод на C# 
int Sum()
{
 int[] nums = new int[5]; //Создаю целочисленный массив из 6 элементов для чисел
 int ans; //Целочисленная переменная для ответа
 for(int x = 0; x < 6; x++)//Цикл для ввода значений
 {
  Console.Write("Введите ", x ," число: ");
  nums[x]=(int)Console.ReadLine(); //Ввод числа и запись в массив
 }
 ans=nums[0]+nums[1]+nums[2]+nums[3]+nums[4]+nums[5] /* Суммирование всех элементов массива и запись результата в переменную */
 Console.WriteLine("Сумма чисел: ",ans); // Вывод ответа
 return ans; //Возврат ответа из метода
}