Напишите две задачи на языке 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.