Задание

Поставьте фрагменты программ к задачам, которые они решают

Заменить отрицательные элементы на противоположные

Найти и вывести на экран номера нечетных элементов

Найти количество отрицательных элементов в данном массиве.

Есть ли элемент в массиве кратный 5?

for i := 1 to n do

if M[i] < 0

then

M[i] := - M[i];

for i := 1 to n do

if M[i] mod 2 <>0

then

Write(i:5);

k :=0;

for i := 1 to n do

if M[i] < 0

then

k:=k+1;

i := 1;

while (i<=n) and (M[i] mod 5<>0) do

Inc(i);

if (i>1) then Write ('YES') else Write ('No')