Question

Дан массив содержащий n(n<=100) злементов отрицательные элементы массива заменить их модулями а положительные увеличить на 5

Answer 1

//Pascal ABC.NET Версия 2.2 Сборка 790
var ar:array of integer;
i,n:integer;
begin;
randomize;
readln(n);
if n>100 then exit;
setlength(ar,n+1);
writeln('First array:');
for i:=1 to n do
begin;
ar[i]:=random(-10,10);
  write(ar[i]:5);
     if ar[i]>0 then ar[i]:=ar[i]+5
     else ar[i]:=abs(ar[i]);
end;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:5);
end.

Пример ввода:
2
Пример вывода:
First array:
    2   -1
Final array:
    7    1

Answer 2

Для решения данной задачи, вам потребуется пройтись по каждому элементу массива и выполнить определенные действия в зависимости от его значения. Если элемент массива отрицательный, то замените его на его модуль. Если элемент массива положительный, то увеличьте его на 5.

Вот пример кода на языке Pascal, который реализует данную задачу:

program ModifyArray;
var
  arr: array[1..100] of Integer;
  n, i: Integer;
begin
  // Введите количество элементов массива
  Write('Введите количество элементов массива (n <= 100): ');
  ReadLn(n);
  
  // Введите элементы массива
  WriteLn('Введите элементы массива:');
  for i := 1 to n do
  begin
    Write('arr[', i, '] = ');
    ReadLn(arr[i]);
  end;
  
  // Измените элементы массива в соответствии с условием
  for i := 1 to n do
  begin
    if arr[i] < 0 then
      arr[i] := Abs(arr[i]) // Заменить отрицательный элемент его модулем
    else
      arr[i] := arr[i] + 5; // Увеличить положительный элемент на 5
  end;
  
  // Выведите измененный массив
  WriteLn('Измененный массив:');
  for i := 1 to n do
    WriteLn('arr[', i, '] = ', arr[i]);
end.

Пожалуйста, обратите внимание, что в данном примере мы предполагаем, что вы будете использовать язык программирования Pascal. Если вы планируете использовать другой язык программирования, пожалуйста, уточните это.

Примечание: Данный код предоставлен в качестве примера и может потребовать некоторых изменений в зависимости от вашей конкретной среды разработки и требований задачи.