Дан массив целых чисел из 10 элементов. Заполните клавиатуру. найти: а) сумму элементов, имеющих нечетное значение б) вывести индексы (номера) тех элементов, значение которых больше заданного числа в) определить есть ли в данном массиве положительные кратные данному числу

program zz1;

const n = 10; / / задаем количество элементов в массиве

var i, k, p:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел с клавиатуры и записываем их в массив

read (m[i]);

for i:=1 to n do

if m[i] mod 2 = 1 then k:=k+m[i]; / / проверяем, если число при делении на два дает в остатке один, то добавляем в сумму

writeln (' сумма нечетных элементов массива = ', k);

read (p); / / вводим заданное число

writeln (' найденные индексы ');

for i:=1 to n do

if m[i] > p then write (' ', i);

writeln; k:=0;

for i:=1 to n do

if (m[i] > 0) and (m[i] mod p = 0) then k:=1;

if k=0 then write ('положительных кратных заданному числу нет ') else write ('положительные кратные заданному числу есть');

end.