Найти в массиве целых чисел K(n) минимальный Kmin и максимальный Kmax элементы

@bacs · Регистрация: 16.08.2014

Author24 — интернет-сервис помощи студентам

Дан массив целых чисел K(n). Найти в нем минимальный K_min и макcимальный K_max элементы. Вывести в порядке возрастания все числа из интервала (K_min, K_max), не встречающиеся в исходном массиве.

@PogrKup · 16.08.2014, 22:39

Pascal

Var
i,j,min,max,n,s:integer;
k:array[1..10000] of integer;
Begin
Writeln('Ââåäèòå ðàçìåðíîñòü ìàññèâà n:');
Readln(n);
for i:=1 to n do
 begin
  Write('K[',i,']=');
  Read(k[i]);
 end;
min:=k[1];
max:=k[1];
for i:=2 to n do
 begin
  if k[i]>max then max:=k[i];
  if k[i]<min then min:=k[i];
 end;
for i:=min+1 to max-1 do
  begin
   s:=0;
    for j:=1 to n do
     if i=k[j] then s:=s+1;
   if s=0 then Write(i,' ');
  end;
End.

@bacs 0 / 0 / 1 Регистрация: 16.08.2014 Сообщений: 9
		1
	Найти в массиве целых чисел K(n) минимальный Kmin и максимальный Kmax элементы 16.08.2014, 21:16. Показов 1692. Ответов 1 Метки нет (Все метки) Дан массив целых чисел K(n). Найти в нем минимальный K_min и макcимальный K_max элементы. Вывести в порядке возрастания все числа из интервала (K_min, K_max), не встречающиеся в исходном массиве. 0

	16.08.2014, 22:39

Найти в массиве целых чисел K(n) минимальный Kmin и максимальный Kmax элементы

Решение