Question

дан целочисленный массив из 5 элементов возвести в квадрат отрицательные элементы

Answer 1

program square_negative;
var
  a: array[1..5] of integer;
  i: integer;
begin
  writeln('Ввод массива: ');
  for i := 1 to 5 do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
    if a[i] < 0 then
      a[i] := a[i] * a[i];
  end;
  writeln('Вывод изменённого массива: ');
  for i := 1 to 5 do
    write(a[i], ' ');
end.