var c, a: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 1 to 20 do begin a[i] := c[20 - i + 1]; write(a[i], ' '); end; end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var c: array[1..20] of integer; i: integer; begin write('Первый массив '); for i := 1 to 20 do begin c[i] := i * (-5); write(c[i], ' '); end; writeln; write('Преобразованный массив '); for i := 20 downto 1 do write(c[i], ' '); end.
Ну почему,когда просят написать программу никто никогда не указывает язык программирования.я напишу на языке паскаль с входным и выходным файлом,но если это не тот язык,твоя проблема.(сообщения в фигурных скобках,это комментарии,просто для пояснение,можешь удалить их)
program p1; const n=10; var a : array[1..n] of integer; i,b,c:integer; begin randomize; assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output);
for i:=1 to n do {Заполнение исходного массива} a[i]:=random(21)-10;
for i:=1 to n do {Вывод исходного массива(можно удалить эти строчки)} write(a[i]:4);
c:=0; {Инверсия массива} for i:=1 to 2 do begin b:=a[i]; a[i]:=a[5-c]; a[5-c]:=b; c:=c+1; end; c:=0; for i:=6 to 8 do begin b:=a[i]; a[i]:=a[10-c]; a[10-c]:=b; c:=c+1; end; writeln;
for i:=1 to n do {Вывод инверсированого массива} write(a[i]:4);
var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do write(c[i], ' ');
end.
Обе программы работают!