Написать программу, в которой для массива из 20 элементов, заполненного случайными числами от -20 до +20, 20 раз выполняется следующая процедура: слева направо по порядку сравниваются все соседние элементы и, если первый больше второго, они меняются местами. в конце процедуры массив выводится на
экран в строку. таким образом, результатом работы программы будут 20 строк. надо на pascalabc, на pascalabc.net у меня не работает- не выполняет до конца и не останавливаетю
const
n=5;
var
a:array[1..n,1..n] of integer;
x:array[1..n] of double;
i,j,k:byte;
begin
Randomize;
Writeln('*** Исходный массив ***');
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:4)
end;
Writeln
end;
Writeln('*** Массив x ***');
for j:=1 to n do begin
x[j]:=0; k:=0;
for i:=1 to n do
if a[i,j] mod 2=0 then begin
x[j]:=x[j]+a[i,j]; Inc(k)
end;
if k>0 then x[j]:=x[j]/k;
Write(x[j]:0:5,' ')
end;
Writeln
end.
Тестовое решение:
*** Исходный массив ***
-10 18 -8 -15 5
-21 -18 6 -2 9
-7 22 -4 3 14
21 16 -10 -18 -9
17 3 -14 -18 12
*** Массив x ***
-10.00000 9.50000 -6.00000 -12.66667 13.00000
1. 256 гигабайт.
2.
зеттабайт => мегабайт => килобайт => байт.
йоттабайт => килобайт => байт => бит
петабайт => терабайт => гигабайт => мегабайт
терабайт => мегабайт => килобайт => бит
Объяснение:
1. В одном терабайте 1024 гигабайта. Четверть терабайта — это 1024/4 = 256 гигабайт.
2.
В одном байте 8 бит;
В одном килобайте 1024 байта.
В одном мегабайте 1024 килобайта.
В одном гигабайте 1024 мегабайта.
В одном терабайт 1024 гигабайта.
В одном петабайте 1024 терабайта.
В одном эксабайте 1024 петабайта.
в одном зеттабайте 1024 эксбатайта.
В одном йоттабайте 1024 зеттабайта.