Program qq;
uses crt;
var x1, y1, x2, y2, n1, n2: integer; x, y, L, M, k, b: real; // чтоб было приятно, возьмём координаты начальных точек - целыми числами.
begin
writeln ('Введите координаты первой точки через пробел');
readln(x1, y1);
writeln('Введите координаты второй токи через пробел');
readln(x2, y2);
writeln ('введите через пробел числа N1 и N2');
readln(n1, n2);
l:=n1/n2; //далее производится расчет по формулам, данным в задании
x:=(x1+L*x2)/(1+L);
y:=(y1+L*y2)/(1+L);
writeln ('Координаты искомой точки (',x,';',y,')');
end.<span>
</span>
40 секунд - это 2/3 от 60 секунд
3мб × 2/3 = 2мб
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.
<u>Пример</u>
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42
Алгоритм конец есть начало и конец
<span>Zotac Geforce GTX 960 2GB GDDR5 Норм видюха :3</span>