Question

Дан массив целых чисел определить:


1) сумму честных элементов

2)вывести все четные элементы на экран

3)кол во элементов кратных х

надо написать программу на паскале

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.