Var
  x: array [1..25] of integer;
  i: byte;
begin

for i := 1 to 25 do
begin
  write(' x[', i, '] = ');
  readln(x[i]);
end;

writeln(' * * * Исходный массив * * * ');
for i := 1 to 25 do write(x[i], ' ');

writeln(#13+' * * * Новый массив * * * ');
for i := 1 to 25 do
begin
  if x[i] < 0 then x[i] := x[i] + 5;
  write(x[i], ' ');
end;

end.

#include
using namespace std;
int main() {
 setlocale(0, "RUS");
 int x[25];
 for (int i = 0; i < 5; i++) {
  cin >> x[i];
 }
cout << "Исходный массив" << endl;
 for (int i = 0; i < 5; i++) {
  cout << x[i] << " ";
  if (x[i] < 0) x[i] += 5;
 }
 cout << endl << "Новый массив" << endl;
 for (int i = 0; i < 5; i++) {
  cout << x[i] << " ";
 }
cout << endl;
system("pause");}