Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.12.2016, 20:45   #1
newsnew
Новичок
Джуниор
 
Регистрация: 20.12.2016
Сообщений: 2
Восклицание [Pascal]: Дан массив. Построить новый массив, элементы которого - квадраты положительных элементов исходного массива и кубы отрицательных.

Для этой программы нужно: "Построить новый массив, элементы которого равны соответственно квадратам положительных элементов исходного массива и элементам в 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.

Последний раз редактировалось Вадим Мошев; 20.12.2016 в 21:25.
newsnew вне форума Ответить с цитированием
Старый 21.12.2016, 04:03   #2
newsnew
Новичок
Джуниор
 
Регистрация: 20.12.2016
Сообщений: 2
По умолчанию

Смог решить сам, если кому понадобится вот код:
Код:
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)
Модератор

Последний раз редактировалось Serge_Bliznykov; 21.12.2016 в 10:45.
newsnew вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программирование в VBA: двумерный массив M на N, нужно создать новый одномерный массив TheAnnihilyator Помощь студентам 1 04.06.2014 09:16
С# задан массив 5х5. сформировать массивы А и В. в массив А поместить элементы с четными индексами, в массив В с нечетны Koksa Помощь студентам 0 10.10.2011 11:26
Запись координат в массив в реал тайм, Как записать координаты в массив Dark19 Visual C++ 2 21.06.2011 18:45
Из массив А получить массив В, удвоив все нечётные элементы удвоены ( на Pascal) KARTER Помощь студентам 1 18.06.2011 19:58