Заполнить массив случайным образом и вывести на экран сумму нечетных элементов.В паскале)

а зачем вам это модуль? uses crt;

в школе всегда его подключают

хмм... ясненько :D

Большое спасибо)))Идеальное решения :)))

Спасибо))))

program mass;uses crt;const n = 100;var massiv:array[1..n] of integer;     i,sum:integer;beginsum:=0;for i:=1 to n do begin   massiv[i]:= trunc(Random(100));   if massiv[i] mod 2 <> 0 then      sum:= sum + massiv[i];end;writeln('Сумма нечетных элементов = ',sum);end.

var b,c,d:integer;a:array [1..100] of integer; begin   randomize;      writeln('введите длину массива');      readln(b);        for c:=1 to b do begin        a[c]:=random(1000);        writeln(a[c]);          if a[c] mod 10 <> 0 then d:=d+a[c];         end;     writeln('сумма нечётных элементов ',d);   end.