<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(30,-30,94,45,-6,1,2,-50,25,-84,-55,-33,-31,-66,
34,72,26,-3,-13,27,-97,57,-42,29,-9);
Writeln('Исходный массив'); a.Println;
Sort(a);
Writeln('Упорядоченный по возрастанию массив'); a.Println;
Writeln('Максимальный элемент ',a.Last,', минимальный ',a.First)
end.
<u>Пример</u>
Исходный массив
30 -30 94 45 -6 1 2 -50 25 -84 -55 -33 -31 -66 34 72 26 -3 -13 27 -97 57 -42 29 -9
Упорядоченный по возрастанию массив
-97 -84 -66 -55 -50 -42 -33 -31 -30 -13 -9 -6 -3 1 2 25 26 27 29 30 34 45 57 72 94
Максимальный элемент 94, минимальный -97
По данному запросу найдутся абсолютно все сайты (знак | в запросе - или).
350+500+200−5−5−(20-5)−(10-5)−(50-5)=975
Объяснение: при сложении 350+500+200 мы получаем сумму всех 3 кругов по отдельности. При этом, при подсчете общего количества сайтов, в данной сумме значение центрального сегмента у нас утроено, а тех трех сегментов с которыми центральный имеет общую сторону, удвоено. Поэтому мы 2 раза отнимаем 5 и по 1 разу отнимаем разность 50 и 5, 20 и 5, 10 и 5.
Ответ: 975
Program Algorithm;
uses crt;
var result, a:real;
begin
for a:= 0 to 10.5 do
begin
result:=2*(Pow (a),5)*3*a*a-1/7*a+12;
a:=a+1.5;
writeline ("Your answer is ", result);
end;
end.
Как-то так, возможно не надо ставить begin/end в цикле for, потому что я уже не помню когда они нужны.
//PascalABC.NET 3.1 сборка 1200
begin
var a := ArrRandomInteger(50, -50, 50);
writeln('[x < 0] = ', a.Where(x -> x < 0).Count);
writeln('[x > 0] = ', a.Where(x -> x > 0).Count);
writeln('[x = 0] = ', a.Where(x -> x = 0).Count);
end.
Решение тут простое, а вот как оформить...наверно блок-схему имеет смысл нарисовать.
Число a - любое натуральное, число b - натуральное четное, т.е. b=2k, где k - любое натуральное число.
Легко видеть, что по результатам шестого шага алгоритма получилось число k. Но мы полагали, что b=2k, поэтому Бим удваивает сообщенное ему число и получает b.
Примеры решений:
1. A=37, B=18
3) 37*2=74 4) 74+18=92 5) 92/2=46 6) 46-37=9 и теперь 9*2=18=B
2. A=4, B=2
3) 4*2=8 4) 8+2=10 5) 10/2=5 6) 5-4=1 и теперь 1*2=2=B
3. A=12345, B=222
3) 12345*2=24690 4) 24690+222=24912 5) 24912/2=12456 6) 12456-12345=111 и теперь 111*2=222=B