Одномерные массивы вариант №1 1. дан массив целых чисел, состоящий из 20 элементов. заполнить его случайными числами. найти: • сумму элементов, имеющих нечетное значение; • индексы тех элементов, значения которых больше заданного числа а; • в данном массиве положительные элементы (вывести их на экран), кратные k.

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]>a then write(i,'; ');
writeln;
writeln('Положитеьные, кратые ',k,': ');
for i:=1 to 20 do
  if (m[i]>0) and (m[i] mod k=0) then write(m[i],'; ');  
end.