// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-100,100); a.Println;
a:=a.Where(x->x>0).Concat(a.Where(x->x<=0)).ToArray;
a.Println;
Writeln('Количество положительных элементов: ',
a.Where(x->x>0).Count)
end.
<u><em>Тестовое решение:</em></u>
n= 15
-29 56 -40 -23 -26 -5 -69 37 -35 74 72 -63 -69 1 -93
56 37 74 72 1 -29 -40 -23 -26 -5 -69 -35 -63 -69 -93
Количество положительных элементов: 5
1. От количества векторов.
2. Потому что рисунки состоят не из пикселей, а из векторов.
қазақстан республикасы мемлекеттік органдарының ресми электрондық үкіметі негізгі бет жаңалықтар мемлекеттік ә сынып оқушылары арасында өткен қазақ тілі мен әдебиеті мұғалімдері орыс тілі және әдебиеті ағылшын тілі информатика математика
1.
program z1;
var x:real;
begin
writeln('Input x: ');
readln(x);
if (x<9) then
begin
x:=(x*x)/(x-9);
writeln('New x: ',x);
end
else
begin
x:=Sin(x);
writeln('New x: ',x);
end;
end.
Поясню выбор типа х: вещественный, т.к. функция синуса вернет не целое число.
2.
program z2;
var a,b,c:real;
begin
writeln('Input a, b, c:');
readln(a,b,c);
writeln('Числа, удовлетворяющие условию:');
if((a>1) and (a<3)) then
writeln(a);
if((b>1) and (b<3)) then
writeln(b);
if((c>1) and (c<3)) then
writeln(c);
end.
У крестиков два выигрышных поля.
1) Среднее поле
2)Верхний правый угол