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

1

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

2013-03-21T17:16:27+04:00

var
mas:array[1..10] of integer;
sum,i:integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(100);
if (mas[i] mod 2<>0) then sum:=sum+mas[i];
end;
writeln (sum);
end.