Question

ПОМОГИТЕ ПОЖАЛУЙСТА
Составить программу на языке паскаль для решения следующей задачи:
Дан одномерный массив. Замените все отрицательные элементы массива их квадратами, положительные элементы оставьте без изменения. входные данные для размерности массива и значения элементов массива задайте самостоятельно.
Результат работы кода в виде скриншота окна программы с отображением кода и полученного результата.

Answer 1

Ответ:

program SquareArrayElements;

const

 n = 5; // Размер массива

var

 a: array[1..n] of integer; // Объявление массива

 i: integer;

begin

 // Задание значений элементов массива

 a[1] := 3;

 a[2] := -5;

 a[3] := 2;

 a[4] := -7;

 a[5] := 1;

 // Вывод исходного массива

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

 for i := 1 to n do

   write(a[i], ' ');

 // Замена отрицательных элементов их квадратами

 for i := 1 to n do

   if a[i] < 0 then

     a[i] := sqr(a[i]);

 // Вывод измененного массива

 writeln;

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

 for i := 1 to n do

   write(a[i], ' ');

 // Ожидание нажатия клавиши для закрытия окна

 readln;

end.

Answer 2

program SquareArray;

const
n = 5; {размерность массива}

var
a: array[1..n] of integer;
i: integer;

begin
writeln('Введите элементы массива:');
{ввод элементов массива}
for i := 1 to n do
begin
readln(a[i]);
end;

{замена отрицательных элементов их квадратами}
for i := 1 to n do
begin
if a[i] < 0 then
begin
a[i] := a[i] * a[i];
end;
end;

writeln('Измененный массив:');
{вывод измененного массива}
for i := 1 to n do
begin
write(a[i], ' ');
end;

end.