// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,50);
a.Println;
Writeln('Количество чисел 10 равно ',a.Where(x->x=10).Count)
end.
<u><em>Тестовое решение:</em></u>
n= 20
27 7 12 44 27 49 11 8 45 12 8 50 39 10 1 37 37 25 27 11
Количество чисел 10 равно 1
Если на экране нарисована замкнутая кривая, то область внутри нее можно закрасить. Также можно закрасить и область, оставшуюся снаружи от кривой. Для этого используется оператор
PAINT (x, y), цвет_закраски, цвет_границы
Точка (x, y) должна попасть внутрь области, подлежащей закрашиванию.
Если граница области “дырявая”, то краска выльется за пределы области, даже если дырка всего в один пиксель. То же самое произойдет, если граница области содержит по недосмотру кусочек другого цвета - для оператора PAINT это все равно что дырка.
Windows2000, windows xp, windows 8, linux (на самом деле - ядро, но вроде можно назвать осью), mac os
A=2 ==== a= 2
a=a*a ==== a=2*2= 4
a=a*a ==== a=4*4= 16
a=a*a ==== a=16*16= 256 (это 2 в восьмой степени)
<span>Е:\видеозапись.aviЕ:\график.xIsЕ:\ИЗОБРАЖЕНИЯ\аквариум.bmpЕ:\ИЗОБРАЖЕНИЯ\ФОТО\Бия.jpegЕ:\ИЗОБРАЖЕНИЯ\ФОТО\Катунь.jpegЕ:\ТЕКСТЫ\буква.txtЕ:\ТЕКСТЫ\онегин.docЕ:\мелодия.mp3<span>Е:\презинтация.ppt</span></span>