Question

Составить программу на языке Паскаль для решения следующей задачи: Дан одномерный массив. Замените все отрицательные элементы массива их квадратами, положительные элементы оставьте без изменения. Входные данные для размерности массива и значения элементов массива задайте самостоятельно. На проверку нужно прислать текст кода программы, результат работы кода в виде скриншота окна программы с отображением кода и полученного результата.

Answer 1

var

 arr : array[1..10] of integer;

 begin

   randomize;

   write('Исходный массив: ');

   for var i := 1 to 10 do

     begin

     arr[i] := random(-10, 10);

     write(arr[i], ' ');

     end;

     

   for var i := 1 to 10 do

   begin

     if arr[i] < 0 then

       arr[i] := arr[i] * arr[i];

   end;

   

   writeln;

   write('Изменённый массив: ');

   for var i := 1 to 10 do

     begin

     write(arr[i], ' ');

     end;

   

 end.

Answer 2

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

program ReplaceNegativeWithSquares;

const
  MAX_SIZE = 100;

var
  arr: array[1..MAX_SIZE] of integer;
  n, i: integer;

procedure ReplaceNegativesWithSquares(var arrayToModify: array of integer);
var
  i: integer;
begin
  for i := Low(arrayToModify) to High(arrayToModify) do
  begin
    if arrayToModify[i] < 0 then
      arrayToModify[i] := arrayToModify[i] * arrayToModify[i];
  end;
end;

procedure PrintArray(const arrToPrint: array of integer; size: integer);
var
  i: integer;
begin
  for i := Low(arrToPrint) to size do
    Write(arrToPrint[i], ' ');
  Writeln;
end;

begin
  Write('Введите размерность массива: ');
  Readln(n);

if (n < 1) or (n > MAX_SIZE) then
  begin
    Writeln('Ошибка: неверная размерность массива.');
    Halt;
  end;

Write('Введите элементы массива (через пробел): ');
  for i := 1 to n do
    Read(arr[i]);

Writeln('Исходный массив:');
  PrintArray(arr, n);

ReplaceNegativesWithSquares(arr);

Writeln('Массив после замены отрицательных элементов их квадратами:');
  PrintArray(arr, n);
end.

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