массив...

[Nightt]

Дан одномерный массив. Не используя другого массива, переставить элементы массива в обратном порядке.



Буду очень благодарен.

[lunnamedl]

Пусть А - двумерный массив целых чисел размерности N*N. Составить программу, которая обнуляет все положительные числа.
Люди помогите плыз!

[GROWZER]

Дан одномерный массив. Не используя другого массива, переставить элементы массива в обратном порядке.

это будет выглядеть гдето так....

const n=10;
var Mas: array[1..n] of integer;
     counter, count, temp:integer;

Begin

// тут заполняем масив нужными данными.....


count:=n div 2;
for counter:=1 to (n div 2) do
    Begin
       temp:= Mas[counter];
       Mas[counter]:=Mas[count];
       count:=count-1;  
    end;


// тут выводим масив на экран или в память куда надо короче....


End.

Пусть А - двумерный массив целых чисел размерности N*N. Составить программу, которая обнуляет все положительные числа.
Люди помогите плыз!

const n=10;
var Mas: array[1..n, 1..n] of integer;
     counter, count:integer;

Begin

// тут заполняем масив нужными данными.....

for counter:=1 to n do
 begin
    for count:=1 to n do
      begin
        if (Mas[counter, count]>0) then Mas[conuter, count]=0;
      end;
 end;

// вывод масива .....

End.

[lunnamedl]

большое спасибо!