Question

Дан одномерный массив, напечатать номера элементов, значения которых находятся в заданном диапазоне (A, Б)

Answer 1

//Pascal
var
  Arr: array [1..255] of byte;
  i, N, A, B: byte;
begin
randomize; //В PascalABC.NET можно убрать
write('Введите количество элементов массива: '); readln(N);
writeln;
writeln('   ***Исходный массив***   ');
for i := 1 to N do
begin
  Arr[i] := random(50);
  write(Arr[i], ' ');
end;
writeln; writeln;
write('Введите диапазон A и B: '); readln(A, B);
writeln; writeln('Номера элементов');
for i := 1 to N do
if ((Arr[i] >= A) and (Arr[i] <= B)) then
  write(i, ' ');
writeln;
readln;
end.