Регистрация
larry19
26.10.2020 09:14
Информатика
Есть ответ 👍

Задать массив случайных двухзначных чисел из 20-ти элементов. Отсортировать его по
возрастанию, затем перевернуть этот массив.
Паскаль

251
355
Посмотреть ответы 2

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

ОМОН07
ОМОН07
4,7(52 оценок)

var

a:array[1..20]of integer;

i,s,j:integer;

begin

randomize;

for i:=1 to 20 do begin

 a[i]:=random(50)-25;

 write(a[i]:4);

end;

writeln;

for i:=2 to 20 do begin

 j:=i;

 while a[j]>a[j-1] do begin

  s:=a[j];

  a[j]:=a[j-1];

  a[j-1]:=s;

  dec(j);

  if j=1 then break;

 end;

end;

for i:=1 to 20 do write(a[i]:4);

readln;

end.

Шпунтя
Шпунтя
4,6(88 оценок)
1мбайт=1024кбайт=1024*1024байт=1024*1024*8бит.  1 символ 16 символьного алфавита можно зашифровать 4 битами (2^4=16)  . 1/256мбайта = 1024*32бит  4. итого получаем 1024*32/4=1024*8=8192получается сообщение содержит 8192 символа.

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