program Project10;
{$APPTYPE CONSOLE}
uses
SysUtils;

const n=5;
type mas=array[1..n] of integer;

Procedure vvod(var a:mas);
var i:integer;
begin
writeln('Vvod massiva:');
for i:=1 to n do
readln(a[i]);
end;

Procedure vivod(var a:mas);
var i:integer;
begin

for i:=1 to n do
writeln(a[i]);
end;

Procedure new_mas(var a,a1:mas);
var p,i:integer;
begin
p:=1;
for i:=1 to n do
if i mod 2=0 then p:=p*a[i];
a1:=a;
a1[1]:=p;
end;

Procedure sort(var a:mas);
var i,j,buf:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
end;

var b,b1:mas;
BEGIN
vvod(b);
new_mas(b,b1);
writeln('Ishodniy massiv:');
vivod(b);
writeln('Noviy massiv:');
vivod(b1);
sort(b);
sort(b1);
writeln('Ishodniy massiv posle sort:');
vivod(b);
writeln('Noviy massiv posle sort:');
vivod(b1);
readln;
END.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.