Question

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

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.