Дан массив целых чисел определить:1) сумму честных элементов 2)вывести все четные...

Question

Дан массив целых чисел определить:1) сумму честных элементов 2)вывести все четные элементы на экран 3)кол во элементов кратных хнадо написать программу на паскале

---

Comments

честные элементы... )))

Answer 1

const n=10;

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

i,k,x,s:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(22)-3;

write(a[i],' ')

end;

writeln;

write('X = ');

readln (x);

write ('Чётные элементы: ');

for i:=1 to n do

begin

if a[i] mod 2 = 0 then

begin

s:=s+a[i];

write(a[i],' ')

end;

if a[i] mod x = 0 then k:=k+1

end;

writeln;

writeln ('Сумма чётных элементов:',s);

writeln ('Количество элементов кратных ',x,' равно: ',k);

end.