Написать на языке паскаль. Масси из 14 элементов заполнить случайными целыми числами в интервале от - 5 до 50. Вывести получкнный массив на экран в строчку. Найти сумму нечетных элементов массива

Question

Информатика

Аверий

21 октября, 00:22

Написать на языке паскаль. Масси из 14 элементов заполнить случайными целыми числами в интервале от - 5 до 50. Вывести получкнный массив на экран в строчку. Найти сумму нечетных элементов массива

+4

Ответы (1)

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

Аграфена · Answer 1

Program z;

var a: array [1 ... 14] of integer;

i, sum: integer;

begin

sum:=0;

for i:=1 to 14 do

begin

a[i]: = random (50) - 5; write (a[i]: 6) ;

if a[i] mod 2 0 then sum: = sum+a[i];

end;

write (' sum = ', sum) ;

end.