var a:array[1...10] of integer;
var i, k1, k2:integer;
begin
for i := 1 to 10 do
read(a[i]);
end;
read(k1, k2);
for i := k1 to k2 do
write(a[i], ' ');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a:array[1...10] of integer;
var i, k1, k2:integer;
begin
for i := 1 to 10 do
begin
read(a[i]);
end;
read(k1, k2);
for i := k1 to k2 do
begin
write(a[i], ' ');
end;
end.