Автор Гриша задал вопрос в разделе Другие языки и технологии
линейный массив в турбо паскале и получил лучший ответ
Ответ от 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.
Ответ от Алексей Арыков[гуру]
k := 0; for i := 1 to 10 do begin b [ i ] := random(+500); if b [ i ] mod 5 = 0 then begin inc(k); a [ k ] := b [ i ]; end; end;
k := 0; for i := 1 to 10 do begin b [ i ] := random(+500); if b [ i ] mod 5 = 0 then begin inc(k); a [ k ] := b [ i ]; end; end;
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: линейный массив в турбо паскале