Question

ИНФОРМАТИКА СРОЧНО ПОМОГИТЕ РЕШИТЬ НОМЕР 4

Answer 1

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.