составить программу, которая...

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

 

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