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

Question

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

Answer 1

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.

Comments

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

Answer 2

Program mass;
uses crt;
const n = 100;
var massiv:array[1..n] of integer;
     i,sum:integer;
begin
sum:=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.

Comments

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

---

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

---

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

---

Спасибо))))