задачки на паскале, кто поможет?

[kellerman]

1.Написать процедуру вывода целого числа N прописью(0<N<99).

2.Дан массив из N вещественных чисел. Сформулировать новый массив, каждый из элементов которого равен среднему арифметическому элементов исходного массива, без элементов с тем же номером, что и результирующий.

3.Дана матрица вещественных чисел размерностью MnX.Получить новую матрицу перестановкой столбцов первого с последним,второго с предпоследним. и т.д.

[Hacker19_90]

2.Дан массив из N вещественных чисел. Сформулировать новый массив, каждый из элементов которого равен среднему арифметическому элементов исходного массива, без элементов с тем же номером, что и результирующий.

for i := 1 to n do
begin
  NewN[i] := 0
  for j := 1 to n do
    if i <> j then
      NewN[i] := NewN[i] + OldN[j];
  NewN[i] := NewN[i]/n;
  Write(NewN[i]:5:5);
end;
WriteLn;

3.Дана матрица вещественных чисел размерностью MnX.Получить новую матрицу перестановкой столбцов первого с последним,второго с предпоследним. и т.д.

for j := 1 to (m div 2) do
  for i := 1 to n do
  begin
    mas[i,j] := mas[i,j] xor mas[i,m-j+1];
    mas[i,m-j+1] := mas[i,j] xor mas[i,m-j+1];
    mas[i,j] := mas[i,j] xor mas[i,m-j+1];
  end;

[kellerman]

спасибо, а первую можно? в паскале ваще не шарю не знаю что куда)

[denisbrain]

насчет 1 ого
так пойдет ?
http://netsoftware.ucoz.ru/Progrma_for_pascal.pas

[kellerman]

хмм, даже не знаю)
а не поможете сделать полные программы из алгоритма?

Сообщение от Hacker19_90

for i := 1 to n do
begin
  NewN[i] := 0
  for j := 1 to n do
    if i <> j then
      NewN[i] := NewN[i] + OldN[j];
  NewN[i] := NewN[i]/n;
  Write(NewN[i]:5:5);
end;
WriteLn;

for j := 1 to (m div 2) do
  for i := 1 to n do
  begin
    mas[i,j] := mas[i,j] xor mas[i,m-j+1];
    mas[i,m-j+1] := mas[i,j] xor mas[i,m-j+1];
    mas[i,j] := mas[i,j] xor mas[i,m-j+1];
  end;