program vdchvep;
uses
crt;
var
i: integer;
c: array [1..20] of integer;
begin
for i := 1 to 20 do
write('c[', i, '] = ');
readln(c[i]);
end;
for i := 10 downto 1 do
write(c[i], ' ');
writeln;
for i := 11 to 20 do
readln;
end.
PascalANC.NET 3.7:
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program vdchvep;
uses
crt;
var
i: integer;
var
c: array [1..20] of integer;
begin
for i := 1 to 20 do
begin
write('c[', i, '] = ');
readln(c[i]);
end;
for i := 10 downto 1 do
write(c[i], ' ');
writeln;
for i := 11 to 20 do
write(c[i], ' ');
readln;
end.
PascalANC.NET 3.7: