var
Ar: array [1..20] of Integer;
i, A, K, s, c: Integer;
begin
WriteLn ('Массив:');
for i := Low (Ar) to High (Ar) do begin
Ar [i] := Random (100);
Write (Ar [i], ' ');
end;
WriteLn;
Write ('Введите A и K: ');
ReadLn (A, K);
s := 0;
c := 0;
Write ('Индексы элементов больше А: ');
for i := Low (Ar) to High (Ar) do begin
if Ar [i] > A then
Write (i, ' ');
if Ar [i] mod 2 <> 0 then
s := s + Ar [i];
if (Ar [i] > 0) and (Ar [i] mod K = 0) then
c := c + 1;
end;
WriteLn;
WriteLn ('Сумма элементов, имеющих нечетное значение = ', s);
if c > 0 then
WriteLn ('Есть положительные элементы кратные К')
else
WriteLn ('Нет положительных элементов кратных К');
end.