Первый нечетный элемент каждой строки удвоить (предполагается, что в каждой строке есть нечетный элемент

[Галина002]

Помогите пожалуйста!!!
1.Дана последовательность целых чисел а1, a2, ..., а20.
Верно ли, что все элементы последовательности равны между собой?
2.Найти сумму делителей каждого из целых чисел от
50 до 70.
3.Дан двухмерный массив целых чисел.
а) Первый нечетный элемент каждой строки удвоить (предполагается, что в каждой строке есть нечетный элемент).
б) Последний нулевой элемент каждого столбца заменить
числом 100 (предполагается, что в каждом столбце есть нулевой элемент).
4.Дан двухмерный массив из 20 столбцов. Переставить в обратном порядке столбцы, расположенные между k-м и s-м столбцами (то есть с k+1-го по s–1й). Значения k и s
вводятся с клавиатуры, k < s.
5.Дан двухмерный массив из 15 строк. Вставить в него
строку из нулей после всех строк, номер которых кратен трем.

[Simply-Art]

Первая прога:

var
 a:array[1..20] of integer;
 i:integer;
 r:boolean;
begin
r:=true;
for i:=1 to 20 do
 begin
  readln(a[i]);
  if a[1]<>a[i] then r:=false;
 end;
if r then writeln('Все раавны')
     else writeln('Не все раавны');
readln;
end.

Вторую не совсем понял, третья :

var
 a:array[1..5,1..5] of integer;
 i,j:integer;
begin
for i:=1 to 5 do
 for j:=1 to 5 do
  readln(a[i,j]);
for i:=1 to 5 do
 begin
  j:=1;
  while a[i,j] div 2 = 0 do j:=j+1;
  a[i,j]:=a[i,j]*2;
 end;
for j:=1 to 5 do
 begin
  i:=5;
  while a[i,j] <> 0 do i:=i-1;
  a[i,j]:=a[i,j]*2;
 end;
for i:=1 to 5 do
 for j:=1 to 5 do
  writeln('A[',i,',',j,']',a[i,j]);
readln;
end.

И пятая :

var
 a:array[1..30,1..2] of integer;
 i,j,t:integer;
begin
for i:=1 to 15 do
 for j:=1 to 2 do
  readln(a[i,j]);
for i:=1 to 15 do
 if i div 3 = 0 then
  begin
   for t:=29 downto i+1 do
    for j:=1 to 2 do
     a[t+1,j]:=a[t,j];
   for j:=1 to 2 do
     a[i,j]:=0;
  end;
for i:=1 to 5 do
 for j:=1 to 5 do
  writeln('A[',i,',',j,']',a[i,j]);
readln;
end.

Думаю примеров работы достаточно, чтобы решить остальные задачи.