[Pascal]: Дан массив. Построить новый массив, элементы которого - квадраты положительных элементов исходного массива и кубы отрицательных.

[newsnew]

Для этой программы нужно: "Построить новый массив, элементы которого равны соответственно квадратам положительных элементов исходного массива и элементам в 3-й степени – для отрицательных элементов исходного массива." Прошу помощи! Если лень писать прогу дайте совет или намекните как это сделать.

Uses CRT;
const
  nmin = -50;
  nmax = 50;

var
  x, n, i: byte;
  delta: array[nmin..nmax]of integer;

begin
      writeln('введите количество элементов одномерного массива');
      readln(n);
      writeln('введите n элементов массива');
      for i := 1 to n do 
      begin
        write('элемент ', i, ' : ');
        read(delta[i]);
       
      end;
      writeln('Массив:');
      for i := 1 to n do
      begin
        write(delta[i]:3);
      end;
      writeln();
      end.

[newsnew]

Смог решить сам, если кому понадобится вот код:

Uses CRT;
const
  nmin = -50;
  nmax = 50;

var
  x, n, i: byte;
  delta: array[nmin..nmax]of integer;
 delta2: array[nmin..nmax]of integer;
  nano: array[nmin..nmax]of integer;



begin
      writeln('введите количество элементов одномерного массива');
      readln(n);
      writeln('введите n элементов массива');
      for i := 1 to n do 
      begin
        write('элемент ', i, ' : ');
        read(delta[i]);
      end;
      writeln('Массив:');
      for i := 1 to n do
      begin
        write(delta[i]:3);
      end;
      writeln();
       for i := 1 to n do
    begin
      if delta[i] < 0 then
        delta2[i] := delta[i];
      delta[i] := delta[i] - delta2[i];
      delta[i] := delta[i] * delta[i];
    end;
    writeln();
    for i := 1 to n do
    begin
      delta2[i] := delta2[i] * delta2[i] * delta2[i];
    end;
    writeln();
    for i := 1 to n do
    begin
      nano[i] := delta[i] + delta2[i];
    end;
    writeln('Массив элементы которого равны соответственно квадратам положительных элементов исходного массива и элементам в 3-й степени – для отрицательных элементов');
    writeln();
    for i := 1 to n do
    begin
      write(nano[i]:18);
    end;
    writeln();
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор