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

Onewood Onewood    3   27.06.2019 20:50    1

Ответы
Shock228ru Shock228ru  02.10.2020 13:25
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.
ПОКАЗАТЬ ОТВЕТЫ
spl228 spl228  02.10.2020 13:25
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика