1) var i,n:integer;
c,d:integer;
a:array[1..1000] of integer;
begin write(введите c,d,n);
read(c,d,n);
for i:=1 to n do begin
a[i]:=random(100);
write(a[i], );
end;
for i:=1 to n do begin
if (a[i]>=c) and (a[i]<=d) then write(a[i], );
end;
end.
2) по ссылке на файл
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.