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

Question

Информатика

Ольгуша

27 апреля, 07:48

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

+5

Ответы (1)

Знаете ответ на вопрос?

Павлуся · 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.