Напишите, , две задачи на языке Pascal ABC:1. Дан массив из 12 целых чисел, заданных случайным образом на [-40;40]. Нечетные элементы массива уменьшить на 2. Вывести изменившийся массив на экран. 2. Дан массив из 10 целых чисел, заданных с клавиатуры. Элементы массива равные своему номеру обнулить. Вывести изменившийся массив на экран.

var

mass : array [1. . 100] of integer;

i, j : integer;

begin

randomize;

for i := 1 to 12 do

mass[i] := random(40) - 40;

for j := 1 to 12 do

if mass[j] mod 2 = 0 then

mass[j] := 0;

for i := 1 to 12 do

write(mass[i]);

end.

2

var

mass : array [1. . 100] of integer;

i, j : integer;

begin

for i := 1 to 10 do

read(mass[i]);

for j := 1 to 10 do

if mass[j] = j then

mass[j] -= 2;

for i := 1 to 10 do

write(mass[i]);

end.