Помогите с паскалем

[apple_mac]

!!!!!!!!HELP PASCAL ABC!!!!!!!!1 Ввести с клавиатуры массив А из 11 целых чисел. Из этого массива образовать массив В, у которого B[1] = A[1], B[11] = A[11], а остальные элементы являются средним арифметическим из трех элементов массива А: предыдущего, текущего и следующего. Вывести оба массива на экран: в первой строке – массив А, во второй строке - массив В.2 Ввести матрицу размером 5 строк и 3 столбца. Поменять местами первую и вторую строки. Полученную матрицу вывести на экран.Как это сделать?

 

[paradise]

 №1var A:array[1..11] of integer; B:array[1..20] of integer;i,j:integer;beginfor i:=1 to 11 do begin             read(A[i]);             B[i]:=A[i];             end;j:=2;for i:=12 to 20 do begin             B[i]:=(A[j]+A[j-1]+A[j+1]) div 3;             j:=j+1;             end;for i:=1 to 11 do write(A[i],' ');writeln;for i:=1 to 20 do write(B[i],' ');end. №2var x:array[1..5,1..3] of integer; i,j,a:integer;beginfor i:=1 to 5 do for j:=1 to 3 do x[i,j]:=i*j;for j:=1 to 3 do begin              a:=x[1,j];             x[1,j]:=x[2,j];             x[2,j]:=a;             end; for i:=1 to 5 do begin writeln; for j:=1 to 3 do write(x[i,j]:3); end;                 end.