//PascalABC.NET версия 3.4.2.1991 от 03.03.19
//Если программа не запускается, то обновите версию
const
handsfree = true;
nmax = 100;
random_min = -50;
random_max = 50;
var
a: array[1..nmax] of real;
i, n, count: integer;
procedure QuickSort(first, last: Integer);{ Быстрая сортировка массива A[] , использует массив как глобальную переменную}
i, j: integer;
x, y: real;
begin
i := first;
j := last;
x := a[(first + last) div 2];
repeat
while (A[i] < x) do inc(i);
while (x < A[j]) do dec(j);
if (i <= j) then
y := A[i]; a[i] := a[j]; a[j] := y;
inc(i); dec(j);
end;
until (i > j);
if (first < j) then QuickSort(first, j);
if (i < last) then QuickSort(i, last);
{ввод массива}
n := nmax;
if handsfree then begin
n := random(nmax - 5) + 5;
for i := 1 to n do
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
else begin
write('n = ');
readln(n);
readln(a[i]);
writeln();
QuickSort(1, n);
{вывод массива}
writeln('Вывод массива[', n, ']:');
{подсчет разных}
count := 1; {первый элемент точно разный}
for i := 2 to n do
if a[i] <> a[i - 1] then
count := count + 1;
writeln('Разных элементов = ', count);
end.
#include<bits/stdc++.h>
using namespace std;
int main()
{int n;
cin>>n;
if(n==10)
cout<<"десять учебных заданий";
if(n==11)
cout<<"одиннадцать учебных заданий";
if(n==12)
cout<<"двенадцать учебных заданий";
if(n==13)
cout<<"тринадцать учебных заданий";
if(n==14)
cout<<"четырнадцать учебных заданий";
if(n==15)
cout<<"пятнадцать учебных заданий";
if(n==16)
cout<<"шестнадцать учебных заданий";
if(n==17)
cout<<"семнадцать учебных заданий";
if(n==18)
cout<<"восемнадцать учебных заданий";
if(n==19)
cout<<"девятнадцать учебных заданий";
if(n==20)
cout<<"двадцать учебных заданий";
if(n==21)
cout<<"двадцать одно учебное задание";
if(n==22)
cout<<"двадцать два учебных заданий";
if(n==23)
cout<<"двадцать три учебных заданий";
if(n==24)
cout<<"двадцать четыре учебных заданий";
if(n==25)
cout<<"двадцать пять учебных заданий";
if(n==26)
cout<<"двадцать шесть учебных заданий";
if(n==27)
cout<<"двадцать семь учебных заданий";
if(n==28)
cout<<"двадцать восемь учебных заданий";
if(n==29)
cout<<"двадцать девять учебных заданий";
if(n==30)
cout<<"тридцать учебных заданий";
if(n==31)
cout<<"тридцать одно учебное задание";
if(n==32)
cout<<"тридцать два учебных заданий";
if(n==33)
cout<<"тридцать три учебных заданий";
if(n==34)
cout<<"тридцать четыре учебных заданий";
if(n==35)
cout<<"тридцать пять учебных заданий";
if(n==36)
cout<<"тридцать шесть учебных заданий";
if(n==37)
cout<<"тридцать семь учебных заданий";
if(n==38)
cout<<"тридцать восемь учебных заданий";
if(n==39)
cout<<"тридцать девять учебных заданий";
if(n==40)
cout<<"сорок учебных заданий";
}
//PascalABC.NET версия 3.4.2.1991 от 03.03.19
//Если программа не запускается, то обновите версию
const
handsfree = true;
nmax = 100;
random_min = -50;
random_max = 50;
var
a: array[1..nmax] of real;
i, n, count: integer;
procedure QuickSort(first, last: Integer);{ Быстрая сортировка массива A[] , использует массив как глобальную переменную}
var
i, j: integer;
x, y: real;
begin
i := first;
j := last;
x := a[(first + last) div 2];
repeat
while (A[i] < x) do inc(i);
while (x < A[j]) do dec(j);
if (i <= j) then
begin
y := A[i]; a[i] := a[j]; a[j] := y;
inc(i); dec(j);
end;
until (i > j);
if (first < j) then QuickSort(first, j);
if (i < last) then QuickSort(i, last);
end;
begin
{ввод массива}
n := nmax;
if handsfree then begin
n := random(nmax - 5) + 5;
for i := 1 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
write('n = ');
readln(n);
for i := 1 to n do
readln(a[i]);
end;
writeln();
QuickSort(1, n);
{вывод массива}
writeln('Вывод массива[', n, ']:');
for i := 1 to n do
write(a[i], ' ');
writeln();
{подсчет разных}
count := 1; {первый элемент точно разный}
for i := 2 to n do
if a[i] <> a[i - 1] then
count := count + 1;
writeln('Разных элементов = ', count);
end.
#include<bits/stdc++.h>
using namespace std;
int main()
{int n;
cin>>n;
if(n==10)
cout<<"десять учебных заданий";
if(n==11)
cout<<"одиннадцать учебных заданий";
if(n==12)
cout<<"двенадцать учебных заданий";
if(n==13)
cout<<"тринадцать учебных заданий";
if(n==14)
cout<<"четырнадцать учебных заданий";
if(n==15)
cout<<"пятнадцать учебных заданий";
if(n==16)
cout<<"шестнадцать учебных заданий";
if(n==17)
cout<<"семнадцать учебных заданий";
if(n==18)
cout<<"восемнадцать учебных заданий";
if(n==19)
cout<<"девятнадцать учебных заданий";
if(n==20)
cout<<"двадцать учебных заданий";
if(n==21)
cout<<"двадцать одно учебное задание";
if(n==22)
cout<<"двадцать два учебных заданий";
if(n==23)
cout<<"двадцать три учебных заданий";
if(n==24)
cout<<"двадцать четыре учебных заданий";
if(n==25)
cout<<"двадцать пять учебных заданий";
if(n==26)
cout<<"двадцать шесть учебных заданий";
if(n==27)
cout<<"двадцать семь учебных заданий";
if(n==28)
cout<<"двадцать восемь учебных заданий";
if(n==29)
cout<<"двадцать девять учебных заданий";
if(n==30)
cout<<"тридцать учебных заданий";
if(n==31)
cout<<"тридцать одно учебное задание";
if(n==32)
cout<<"тридцать два учебных заданий";
if(n==33)
cout<<"тридцать три учебных заданий";
if(n==34)
cout<<"тридцать четыре учебных заданий";
if(n==35)
cout<<"тридцать пять учебных заданий";
if(n==36)
cout<<"тридцать шесть учебных заданий";
if(n==37)
cout<<"тридцать семь учебных заданий";
if(n==38)
cout<<"тридцать восемь учебных заданий";
if(n==39)
cout<<"тридцать девять учебных заданий";
if(n==40)
cout<<"сорок учебных заданий";
}