// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию!
procedure FillRandom(var P:array of integer; a,b:integer); begin var (k,n):=(0,P.Length); repeat P:=ArrRandom(n,a,b); k+=1; until P.Distinct.Count=n; Writeln('Сделано ',k,' генераций массива') end;
begin var n:=ReadInteger('n='); var (a,b):=ReadInteger2('Укажите интервал значений элементов:'); if b-a+1<n then Writeln('Задание выполнить невозможно') else begin var x:=new integer[n]; FillRandom(x,a,b); x.Println end end.
using namespace std;
int main()
{
//объявление переменных
int a,b,c,min,max;
//Вводим числа
cout<<"Введите а "<<endl;
cin>>a;
cout<<"Введите b"<<endl;
cin>>b;
cout<<"Введите c"<<endl;
cin>>c;
//Ищем максимальное число
if (a>=b && a>=c)
{max=a;}
else
{if (b>=a && a>=c)
{max=b;}
else max=c;}
//Ищем минимальное число
if (a<=b && a<=c)
{min=a;}
else
{if (b<=a && a<=c)
{min=b;}
else min=c;}
//Вывод переменных
cout<<"Максимальное число = "<<max<<endl;
cout<<"Минимальное число = "<<min<<endl;
system("pause");
return 0;}