Помогитее решить на Turbo Pascal,пожалуйстаа
Дан
массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры.
Найти:

−
сумму элементов, имеющих нечетное
значение;


− вывести индексы тех элементов, значения
которых больше заданного числа А.


−
определить, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры)


− заменить
первый элемент, кратный 5, нулем.

Const  n = 10;
var  mas :array [1..n] of integer;  i, sum, a, k, sch :integer;
begin
  writeln(Введите массив:);  for i:= 1 to n do    readln(mas[i]);  writeln(Введите число A:);  readln(a);  writeln(Введите число k:);  readln(k);    sum:= 0;  for i:= 1 to n do    if mas[i] mod 2 = 1 then      sum:= sum + mas[i];  writeln(Сумма элементов равна ,sum);    writeln(Индексы, значение элементов которых больше ,a, :);  for i:= 1 to n do    if mas[i] > a then      write(i, );  writeln;    sch:= 0;  for i:= 1 to n do    if mas[i] mod k = 0 then      sch:= 1;  if sch = 1 then    writeln(В массиве есть элементы, кратные ,k)  else    writeln(В массиве нет элементов, кратных ,k);    for i:= 1 to n do    if mas[i] mod 5 = 0 then    begin      mas[i]:= 0;      break;    end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.