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

Question

Информатика

Лаврюха

21 марта, 22:18

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

+4

Ответы (2)

Знаете ответ на вопрос?

Павлина · 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.

Динуся · 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.