Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры.Найти:-сумму элементов, имеющих нечетное значение;-вывести индексы тех элементов, значения которых больше заданного числа А;-определить,есть ли в данном массиве положительные элементы, кратные к(к вводить с клавиатуры)-заменить максимальный по модулю отрицательный элемент нулем;-заменить первые к элементов на противоположные по знаку — Pascal(Паскаль)

program zad;
uses crt;
const n=10;
var mass:array[1..n] of integer;
    a,k,s,max:integer;
    i:byte;
begin
clrscr;
randomize;
writeln('Генерация массива');
For i:=1 to n do
begin
mass[i]:=random(100)-50;
writeln('mass[',i,']=',mass[i]);
end;
writeln('Введите a,k');
readln(a,k);
s:=0;
For i:=1 to n do
begin
if (odd(i)=true) then
s:=s+mass[i];
end;
writeln('---------------------------------------------------------------------');
writeln('s=',s);
writeln('---------------------------------------------------------------------');
For i:=1 to n do
if (mass[i]>a) then
writeln(i);
writeln('---------------------------------------------------------------------');
For i:=1 to n do
begin
if (mass[i]>0) then
   if ((mass[i] mod k)=0) then
   writeln(mass[i]);
end;
writeln('---------------------------------------------------------------------');
max:=-1;
begin
For i:=1 to n do
begin
if (mass[i]<max) then
max:=mass[i];
end;
For i:=1 to n do
begin
if (mass[i]=max) then
mass[i]:=0;
writeln('mass[',i,']=',mass[i]);
end;
 
writeln('---------------------------------------------------------------------');
end;
For i:=1 to k do
mass[i]:=(-1)*mass[i];
For i:=1 to n do
writeln('mass[',i,']=',mass[i]);
 
readln;
end.