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>
Чтобы закодировать 16 цветов, нужно 4 бита.
Чтобы закодировать 256 цветов, нужно 8 бит.
4 бита это пол байта. 8 бит это 1 байт.
640*480/2 - количество памяти в байтах, требуемое для хранения одной страницы в случае а).
640*480 - количество памяти в байтах, требуемое для хранения одной страницы в случае б).
Чтобы найти искомое количество страниц, нужно выполнить деление
(512*1024) / (640*480/2) для случая а)
(512*1024) / (640*480) для случая б)
В одном каталоге не может быть двух папок или двух файлов с одинаковыми именами. В данном случае в папке USERS есть две папки PETER, чего быть не может.
<u>// PascalABC.NET 3.3, сборка 1607 от 31.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,10,99);
a.Println(3); Writeln(3*n*'-');
for var i:=0 to n-2 do
for var j:=i+1 to n-1 do a[i,j]:=0;
Writeln('*** Выходной массив ***'); a.Println(3)
end.
Надеюсь правильно
Теуважукова -210197243194192198243202206194192
Аделина-192196197203200205192
Русланова-240243241203192205206194192