Регистрация
Luna2904
02.04.2023 18:06
Информатика
Есть ответ 👍

Задать количество элементов одномерного массива присвоить каждому элементу целочисленное значение отсортировать по убыванию

225
491
Посмотреть ответы 3

Ответы на вопрос:

fhdhfh
fhdhfh
4,5(71 оценок)
// pascalabc.net 3.1, сборка 1256 от 21.06.2016 begin   var a: =arrrandom(readinteger('n=',99); a.println;   a.sorteddescending.println; end. тестовое решение n=15 -64 -10 56 -78 35 -53 61 -12 17 29 -45 -13 73 24 1 73 61 56 35 29 24 17 1 -10 -12 -13 -45 -53 -64 -78
HACT91
HACT91
4,6(95 оценок)
//pascal abc.net 3.1 сборка 1219 var   ar: array of integer;   i,n: integer;   procedure quicksort(var a: array of integer; lo,hi: integer); procedure sort(l,r: integer); var i,j,x: integer; begin i: =l;   j: =r;   x: =a[random(r-l+1)+l]; repeat while a[i]> x do i: =i+1;   while x> a[j] do j: =j-1;   if i< =j then     begin     if a[i]< a[j] then  swap(a[i],a[j]);     i: =i+1;   j: =j-1;   end;     until i> =j;   if l< j then sort(l,j);   if i< r then sort(i,r); end; begin;   randomize;   sort(lo,hi) end;   begin   readln(n);   setlength(ar,n);   n: =n-1;   writeln('array: ');   for i: =0 to n do   begin     ar[i]: =random(10);     write(ar[i]: 4);   end;   quicksort(ar,0,n);   writeln;   writeln('final array: ');   for i: =0 to n do   write(ar[i]: 4); end. пример ввода: 5 пример вывода: array:     8   7   5   9   4 final array:     9   8   7   5   4
eksergeeva5
eksergeeva5
4,5(50 оценок)

не может

Объяснение:

IP адрес состоит из 4 чисел от 0 до 255 (включительно), отделенных точками.

268 > 255, поэтому такой IP адрес не существует

Популярно: Информатика