Составить задачу в Паскале. Составьте программу вычисления суммы нечетных элементов...

Question

Составить задачу в Паскале. Составьте программу вычисления суммы нечетных элементов одномерного массива А (Т). Массив заполнить случайным образом

Answer 1

            Const n=10;
Var a:array [1..n] of integer;
s,t:integer;
begin 
  randomize;   
 for t:=1 to n do
 begin
            a[t] := random(100);     
       write(a[t]:6);     
      end;       
     writeln;
s:=0;
for t:=1 to n do
if a[t] mod 2=1
 then
 s:=s+a[t];
writeln('Summa=',s);
end.

Comments

Совет: лучше проверять нечетность по условию <>0, потому что для отрицательных целых (да, тут их нет, но бывают в других задачах) функция n mod 2 в Паскале (по крайней мере, в Турбо Паскаль) возвращает -1 для нечетного n. А в Excel возвращается 1 и для отрицательных. Поэтому проще запомнить универсальный алгоритм: проверять на равенство нулю для четных и на неравенство нулю для нечетных.