Var a : array [1..42] of integer; sum : integer; i : byte; begin randomize; for i := 1 to 42 do begin a[i] := random(30) + random(20); write(a[i], '|'); sum += a[i]; end; writeln(); if sum >= 1000 then writeln('Число четырехзначное! Всего: ', sum) else writeln('Число НЕ четырехзначное! Всего: ', sum) <span>end. ----</span> массив заполняется случайным образом
1. 173 2. 11011 3. 33 4. 1B 5. 36 6. 0 1 2 3 4 7. С<span>имволический метод записи чисел, представление чисел с помощью письменных знаков. 8. А 173 B 22 9. A 10111 B 11101</span>