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

varmas:array [1..20] of integer;i,sum,A:integer;beginfor i:=1 to 20 doread(mas[i]);for i:=1 to 20 doIf odd(mas[i]) thensum:=sum+mas[i];writeln('Сумма элементов имеющих нечетное значение = ',sum);writeln('Введите А');readln(A);writeln('Индексы элементов, значение которых больше,чем А:');for i:=1 to 20 do beginif mas[i]>A thenwrite(i,' ');end;end.