составить программу, которая бы находила сумму нечётных элементов одномерного целочисленного массива. Способ заполнения массива - любой (или при помощи функции random или при помощи простого присваивания).

1

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

  • Tlalok
  • почетный грамотей
2013-03-16T19:25:51+00:00

var

  a:array[1..100] of integer;

  Summ, i, n:integer;

begin

  write('Введите количество элементов массива ');

  readln(n);

  for i := 1 to n do

  begin

    a[i] := random(51) - 25;

    write(a[i], ' ');

    if a[i] mod 2 <> 0 then

      Summ := Summ + a[i];

  end;

  writeln;

  writeln('Summ = ', Summ);

end.