Const N1 = 5;
N2 = 5;
var a: array [0..N1, 0..N2] of integer;
b: array [0..N1*N2] of integer;
i, j, n: integer;
begin
for i:=0 to N1 do {Заполнение массивы случайными числами}
for j := 0 to N2 do
a[i, j] := random(9999);
for i:=0 to N1 do {Основная часть, проверка и заполнение второго массива}
for j := 0 to N2 do
if (a[i, j] mod 2 = 0) then
begin
b[n] := a[i, j];
n := n + 1;
end;
for i:=0 to n do {Вывод полученных чисел}
writeln(b[i]);
<span>end.</span>
217 бит = 217/8 байт=27,125 байт = 27,125/1024 Кбайт ≈ 0.26 Кбайт
11- 1
12- 4
13- старый компьютер
14- 3
2B_16 = X _10
11*16^0 + 2*16^1 = 11 + 32 = 43
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
a.Println;
var (imax,imin):=(a.IndexMax,a.LastIndexMin);
Swap(a[imin],a[imax]); a.Println
end.
<u>Пример</u>
n= 15
-4.3 -5.6 7.2 -5.3 -7.7 9.3 1.4 0.3 -4.7 6.3 5.7 7.5 -8.6 6.9 -2.5
-4.3 -5.6 7.2 -5.3 -7.7 -8.6 1.4 0.3 -4.7 6.3 5.7 7.5 9.3 6.9 -2.5