девять вагонов
-----------------------------
500*60*55*1=<span>
1650000байт/1024/1024=</span><span><span>1,573563Мбайт
5916/(34*58)=3 страницы
128*256*4(глубина цвета)=</span></span><span><span>131072 бит/8/1024=16 Кбайт
24*1024*8/(512*128)=3 бита глубина цвета, 2 в степени 3=8 цветов</span></span>
Var
i: integer;
begin
i := 20;
repeat
writeln(i, 'cm = ', 10 * i, 'mm');
i := i + 5
until i > 100;
end.
1)Вариант:
begin
var ar:=arrrandom(10, -5, 5);
//ar.Println;
end.
2)Вариант:
var
ar: array[1..10]of integer;
begin
for var i := 1 to 10 do ar[i] := random(-5, 5);
//for var i := 1 to 10 do write(ar[i],' ');
end.