массив

[Ия Ильина]

1. дан массив состоящий из 20 элементов. заполнить его с клавиатуры. найти:
-сумму элементов имеющих нечетное значение;
-вывести индексы тех элементов, значения которых больше заданного числа А.

2. определить есть ли в данном массиве положительные элементы, кратные K (K вводить с клавиатуры)

[rubius2008]

1.

s:=0; for i:=1 to 20 do if odd(m[i]) then s:=s+m[i];
writeln('суммa элементов имеющих нечетное значение: ',s);
for i:=1 to 20 do if m[i]>A then writeln(i,' элемент больше А');

2.

x:=false; for i:=1 to n do if (m[i]>0) and (m[i] mod k=0) then x:=true;
if x then writeln('есть') else writeln('Нет');

[Александр Мордик]

Cделал 1-е задание , числа задаются случайные то -10 до 10 , все пшет я проверял , можешь подогнать под себя)))

var
ar:array[1..20] of integer;
sum,i,a:integer;
begin
randomize;
for i:=1 to 20 do
begin
ar[i]:=random(20)-10;
write(ar[i]:4);
end;
sum:=0;
for i:=1 to 20 do
begin
if ar[i]mod 2=1 then
sum:=sum+ar[i];
end;
writeln('summa eleventov imeushee nechetnoe znachenie=',sum);
writeln('Vedite chislo A');
readln(a);
for i:=1 to 20 do
begin
if ar[i]>a then
writeln('  chisla ',ar[i],'>a','indeks=',i);
end;
end.