Ну этот кусок может выглядеть так:
---------------
t:= A;
A:=B;
B:=C;
C:=t;
---------------
Var
a: array[1..100] of integer;
k, i, n: integer;
begin
read(n);
for i := 1 to N do
begin
A[i] := random(40) - 20;
if (a[i] mod 3 = 0) and (a[i] mod 5 > 0) then
k := k + 1;
Write(a[i], ' ');
end;
WriteLn();
WriteLn(k);
end.
На простых фотоаппаратах изображение фокусируется на плёнку, а в цифровых камерах на матрицу
Такое устройство называется процессор.
Фраза "Делай добро и жди добра" состоит из 23 символов. Размер = 23*16 бит = 23*16/8 байт = 46 байт.