3 года назад

Составить программу для сортировки элементов массива произвольной длины по убыванию.пож надо

1 ответ:

kost [6]3 года назад

0 0

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99);
a.Println;
a.SortedDescending.Println;
end.

<u><em>Тестовое решение</em></u>
n= 17
-38 37 -82 54 62 -28 33 37 -61 63 -66 63 -81 -63 3 38 12
63 63 62 54 38 37 37 33 12 3 -28 -38 -61 -63 -66 -81 -82

Читайте также

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!! Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала вычисляе

WiktorBro [14]

ЛУВР-чётное: АЛУВР ~ БМФГС.

БМФГС -нечётное: БМФГ ~ ВНХД.

0 0

4 года назад

ОЧЕНЬ СРОЧНО !!! НУЖНО РЕШЕНИЕ И ОТВЕТ !!!

GavrilovaVasilisa [35]

4278 = <em>8 + 7 * 9 + 2 * 81 + 4 * 729</em> = <u>3149</u>

EF = <em>15 + 16 * 14</em> = <u>239</u>

011010112₃

+110111012₃

10011102₃

-01101112₃

1202220₃ = 1202220₃ = 1∙3⁶+2∙3⁵+0∙3⁴+2∙3³+2∙3²+2∙3¹+0∙3⁰ = 729 + 486 + 0 + 54 + 18 + 6 + 0 = <u>1293₁₀</u>

0 0

4 года назад

Дана строка, заканчивающаяся точкой. Подсчитать, сколько в ней слов.

Rain 222 [2]

Var
   S:string;
   i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
k:=0;
i:=1;
Repeat
if (S[i] = ' ')or(S[i] = ',')or(S[i] = ':')or(S[i] = ';')or(S[i] = '?')or(S[i] = '!') then
   if not((S[i+1] = ' ')or(S[i+1] = ',')or(S[i+1] = ':')or(S[i+1] = ';')or(S[i+1] = '?')or(S[i+1] = '!')) then
      k:=k+1;
i:=i+1
Until S[i] = '.';
WriteLn('Количество слов: ',k+1);
End.

0 0

4 года назад

Помогите пожалуйста. Написать программу, которая на вход получает 2 множества, а при выходе даёт 4 множества. Можно на любом яз

Mapatuk

<u>// PascalABC.NET 3.4, сборка 1766 от 25.08.2018 </u>

begin

var a := new HashSet<integer>(ReadArrInteger('Множество A ->', ReadInteger('Размер множества A =')));

var b := new HashSet<integer>(ReadArrInteger('Множество B ->', ReadInteger('Размер множества B =')));

a.Except(b).Print; Println(' - A\B');

b.Except(a).Print; Println(' - B\A');

a.Intersect(b).Print; Println(' - пересечение A и B');

a.Union(b).Print; Println(' - объединение A и B');

end.

<u>Пример ввода/вывода в приложении.</u>

0 0

4 года назад

Прочитать ещё 2 ответа

составьте программу вычисления среднего арифметического целых чисел из отрезка [-6; 33]Срочно нужно

1974-Света [14]

Uses crt;
var i: shortint; sr: real;
begin
clrscr;
for i:=-6 to 33 do
sr:=sr+i;
sr:=sr/40;
writeln('среднее арифметическое = ',sr:4:1);
<span>end.</span>

0 0

4 года назад