Легкая задача Жарасхан очень любит решать сложные задачи, но иногда ему дается нелегко, когда надо решать - id1657940020210602 от parvizmirzoev03 02.06.2021 06:35

Question

Информатика: Легкая задача Жарасхан очень любит решать сложные задачи, но иногда ему дается нелегко, когда надо решать легкую задачу :D Дается число, нужно найти минимальное следующее число, которое строго больше текущего числа и состоит из уникальных чисел. Жоре решить эту легкую задачу. Входные данные: (1000 ≤ y ≤ 9000) Выходные данные: Вывод числа, которое сторого больше текущего числа и состоит из уникальных чисел. Пример 1 Ввод: 2013 Вывод: 2014 Пример 2 Ввод: 1234 Вывод: 1235 Пример 3 Ввод: 4572 Вывод:

parvizmirzoev03 · Accepted Answer

Program n1;
const n=10;
var a: array[1..n] of integer;
n3,n2,min,max,i,imin,imax,t: integer;
begin
randomize;
writeln('введите диапазон (a;b) :');
write('a=');
readln(n3);
write('b=');
readln(n2);
write('сгенерированный массив: ');
for i:=1 to n do
begin
a[i]:=random(n2-n3+1)+n3;
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do if a[i]<min then min:=a[i];
for i:=1 to n do if a[i]=min then begin
imin:=i;
break;
end;
max:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]=max then begin
imax:=i;
break;
end;
t:=a[imax];
a[imax]:=a[imin];
a[imin]:=t;
write('полученный массив: ');
for i:=1 to n do write(a[i],' ');
end.

MOGZ ответил