Составить программу замены отрицательных элементов одномерного массива их квадратами — Pascal(Паскаль)

program PascalGuru;

var
  X: array [1 .. 50] of integer;
  n, i, z: integer;

begin
  writeln('Vvedite razmer massiva X:');
  read(n);
  writeln('Vvedite massiv X:');
  for i := 1 to n do
  begin
    write('X[', i, ']=');
    readln(X[i]);
  end;

  write('Vot vvedennyy vami massiv X: ');
  for i := 1 to n do
    write(X[i], '  ');
  writeln;

  for i := 1 to n do
    if X[i] < 0 then
      X[i] := sqr(X[i]);

  writeln;
  write('Vot massiv X posle izmenenii: ');
  for i := 1 to n do
    write(X[i], '  ');

  readln;

end.

Leave a Comment