Но вот наконец, когда солнце стало спускаться к западу, степь, холмы и воздух не выдержали гнета и истощивши терпение, измучившись, попытались сбросить с себя иго. Из-за холмов неожиданно показалось пепельно-седое кудрявое облако. Оно переглянулось со степью - я, мол, готово - и нахмурилось. Вдруг в стоячем воздухе что-то прорвалось - сильно рванул ветер и с шумом, со свистом закружил по степи. Тотчас же трава и бурьян подняли ропот, на дороге закружилась пыль, побежала по степи и, увлекая за собой солому, стрекоз и перья, черным вертящимся столбом поднялась к небу и затуманила солнце. По степи, вдоль и поперек, спотыкаясь и прыгая, побежали перекати-поле, а одно из них попало в вихрь, завертелось, как птица, полетело по небу и, обратившись там в черную точку, исчезло из виду. За ним понеслось другое, потом третье, и было видно, как два перекати-поле столкнулись в голубой вышине и вцепились друг в друга, как на поединке.
Ну почему,когда просят написать программу никто никогда не указывает язык программирования.я напишу на языке паскаль с входным и выходным файлом,но если это не тот язык,твоя проблема.(сообщения в фигурных скобках,это комментарии,просто для пояснение,можешь удалить их)
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);
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);
close(input);
close(output);
end.