Question

Дан массив целых чисел. Найти в этом массиве минимальный элемент m и максимальный элемент М. Получить в порядке возрастания все целые числа из интервала (m; М), которые не входят в данный массив.

Answer 1

uses crt;
var a:array[1..10] of integer;
max,min,i,j,s:integer;
begin
clrscr;
writeln('ÈñõîäГ*ûé ГГ*Г±Г±ГЁГў');
min:=40;
max:=0;
randomize;
for i:=1 to 10 do
 begin
  a[i]:=random(51)-10;
  write(a[i]:4);
  if (a[i]>=max) then max:=a[i];
  if (a[i]<=min) then min:=a[i];
 end;
writeln;
writeln('ГЊГ*ГЄГ±ГЁГГ*ëüГ*ûé ýëåГГҐГ*ГІ ГГ*Г±Г±ГЁГўГ* ',max);
writeln('ГЊГЁГ*ГЁГГ*ëüГ*ûé ýëåГГҐГ*ГІ ГГ*Г±Г±ГЁГўГ* ',min);
writeln('ÝëåГГҐГ*ГІГ» Гåæäó ГГЁГ*ГЁГГ*ëüГ*ûà è ГГ*ГЄГ±ГЁГГ*ëüГ*Г»Г, Г*ГҐ âõîäÿùèå Гў ГГ*Г±Г±ГЁГў');
for i:=min+1 to max-1 do
 begin
  for j:=1 to 10 do
   if (a[j]=i) then s:=i;
  for j:=1 to 10 do
   if (a[j]<>i) and (s<>i) then
    begin
     write(i:4);
     break;
    end;
  s:=0;
 end;
readln
end