Дан массив целых чисел состоящих из 20 элементов заполнить его с клавиатуры найти
1) сумму элементов имеющих нечётное значение
if a(i) mod 2<>0
1) сумму элементов имеющих нечётное значение
if a(i) mod 2<>0
More Questions From This User See All
Answers & Comments
const N = 20;
var a: array [1..N] of integer;
i,s:integer;
begin
for i:=1 to N do read (a[i]);
writeln('Элементы массива: ');
for i:=1 to N do
begin
write(a[i],' ');
if a[i] mod 2 <> 0 then s:=s+a[i]
end;
writeln;
writeln ('Сумма элементов имеющих нечётное значение равна ',s)
end.