23040000 бит
2,75 Мега байта
22500 Кило байта
===== PascalABC.NET =====
begin
var a := ArrRandom(19, 27, 74);
a.PrintLines
end.
устройства ввода
2 группы на которые делятся
устройства вывода
какие бывают клавиатуры
основные характеристики принтера
струйные принтеры
Uses crt;const n=10;var D,B,C: array [1..n] of integer; i,k: integer;
begin for i:=1 to n do begin D[i]:=random(100); writeln(D[i]); end; for i:=1 to n do begin if D[i]<10 then B[i]:=D[i]; if D[i]>10 then C[i]:=D[i]; if D[i]=10 then inc(k); end; writeln('Кол-во элементов, равных 10 = ',k);<span>end.</span>