линейный массив что это такое

Ответ от Jurii[гуру]
var A, B : array [1..10] of Byte; N, K : Byte; begin Randomize; K := 0; Write(\'B :\'); for N := 1 to 10 do begin B[N] := Random(256); Write(B[N]:4); if B[N] mod 5 = 0 then begin Inc(K); A[K] := B[N]; end; end; WriteLn; Write(\'A : \'); for N := 1 to K do Write(A[N]:4); WriteLn; end.