5. Дан двумерный массив и два числа: i и j. Поменяйте в массиве столбцы с номерами i и j и выведите результат.

ответ:program qwe;

var

a:array[1..30] of integer; //объявляем массив а целых чисел из 30 элементов

i,k,j:integer; //объявляем i,k,j целого типа

begin

randomize; //подключаем генерирование случайных чисел

for i:=1 to 30 do //циклом от 1 до 30 включительно

begin

a:=random(50); //заполняем каждый элемент массива случайными числами

//от 0 до 50 (не включая 50)

write(a,' '); //выводим в строчку полученный элемент и

//добавляем после него пробел

end;

writeln; //переход на новую строку

for j:=1 to 3 do //циклом от 1 до 3 влючительно

//т. к. в июне 30 дней, то и декад - 3

begin

k:=0; //обнуляем k, что бы каждую декажу считать заново

for i:=(1+10*(j-1)) to 10+10*(j-1) do //циклом от начала каждог десятка

//например с 1, с 11 и с 21 по конец каждого десятка

//например по 10, по 20 и по 30

k:=k+a; //к тому что у нас было прибавляем очередной элемент

writeln(k,' осадков за ',j,' декаду'); //выводим результат

end;

readln; //для задержки экрана.

end.

код иногда некорректно отображается на "ответах"

1 задание) ответ: 1323141;
Двигаемся в обратном порядке 2324142 (идём с конца) ей противоположные 1323141
2 задание) ответ: 2949;
мы должны получить 11 и 13 причем минимально . можем только так 9+2 и 9+4 . значит 2949
3 задание)   ответ: 3;
чтобы добраться до 21 нам нужно выполнить 1 команду 6 раз и 3 раза вторую , нас спрашивают про вторую пишем ответ 3
4 задание) ответ: 1;
нам нужно число которое делится на 5 то есть 4 отпадает , и также нам нужно чтобы модуль разности был не более 2 и во втором и в третьем модуль разности больше 2 , остается 1.
5 задание)  ответ: 1112221;
Я всегда начинаю с обратного 
57-56-28-14-7-6-5-4  собираем с конца 1112221