Одномерные массивыВариант 11. Дан массив целых чисел, состоящий из 20 элементов.

Var
  s,i,a,k:integer;
  m:array[1..20]of integer;
begin
write('Введите А и k: ');
readln(a,k);
writeln('Массив:');
for i:=1 to 20 do
  begin
  m[i]:=random(20);
  write(m[i],' ');
  if m[i] mod 2=1  then s:=s+m[i];
  end;
writeln;
writeln('Сумма нечетных: ',s);
write('Искомыe индексы: ');
for i:=1 to 20 do
  if m[i]gt;a then write(i,'; ');
writeln;
writeln('Положитеьные, кратые ',k,': ');
for i:=1 to 20 do
  if (m[i]gt;0) and (m[i] mod k=0) then write(m[i],'; ');  
end.