Question

Дан массив из N элементов(12 элементов), заданный случайным образом от -10 до 10. Вывести на экран этот массив. С клавиатуры вводятся два числа меньше N. Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.

Answer 1

Const n = 12;
var a:array [1..n] of integer;
      i,c,b:integer;
begin
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random(21)-10;
      write (a[i],' ');
    end;
  writeln;
  repeat
    write ('C = ');
    readln (c);
  until c in [1..n];
  repeat
    write ('B = ');
    readln (b);
  until b in [1..n];
  if c<b then
    for i:=c to b do write (a[i],' ')
  else for i:=b to c do write (a[i],' ');
  readln;
end.