Найти сумму чисел кратных двум

Frost007

найти сумму чисел кратных двум,выбирать из 10 чисел введенных с клавиатуры.через mod
11 ответов

Frost007

Т. е. найти сумму элементов,значения которых четно(кратно 2), массива размерности 10 ?


Frost007

Артём121, нет просто вводишь с клавиатуры любых 10 чисел и он считает их сумму, но чтобы числа выбирал только кратные двум, не через массив, через mod


Frost007

Т. е. найти сумму элементов,значения которых четно(кратно 2), массива размерности 10 ?
Можно и без. Просто проверять каждое введенное число в цикле до 10.Эх, опоздал))
uses crt;
var i,j,sum: integer;
begin
 clrscr;
 for i:=1 to 10 do
  begin
   readln(j);
   if j mod 2 = 0 then
    sum:=sum+j;
  end;
 writeln('Сумма = ',sum);
 readln;
end.


Frost007

program zz;
var i,g:integer;
    s:longint;
begin
s:=0;
 for i:=1 to 10 do
  begin
   readln(g);
    if g mod 2=0 then
     begin
      s:=s+g;
     end;
  end;
writeln(s);
readln;
end.


Frost007

BumerangSP, как сделать чтобы если не ввёдешь числа кратные 2 чтоб писало нет чисел кратных двум


Frost007

Frost007, вот, чтоб наверняка:
uses crt;
var i,j,sum,k: integer;
begin
 clrscr;
 for i:=1 to 10 do
  begin
   readln(j);
   if j mod 2 = 0 then
    begin
     sum:=sum+j;
     inc(k);
    end;
  end;
 if k<>0 then
  writeln('Сумма = ',sum)
 else
  writeln('Нет чисел, кратных 2');
 readln;
end.
Сделал так, это даже учитывает, если все элементы будут равны 0.


Frost007

BumerangSP, на втором end не проходит


Frost007

Frost007, хм, что не проходит? В паскале-то? Может, нужно присвоить в начале k=0. Но обычно в паскале это по умолчанию. Что компилятор выдает?


Frost007

BumerangSP, выдает то что после второго end надо точку ставить


Frost007

Frost007, Не знаю, о чем он. Там ведь begin и end везде поровну. Какой паскаль? абс и турбо удачно компилируют.


Frost007

BumerangSP, разобрался,всё работает