<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
var a:=ArrRandom(10,1,100); a.Println;
var imax:=a.IndexMax;
var imin:=a.IndexMin;
Swap(a[imax],a[imin]); a.Println
end.
<u>Пример</u>
65 47 11 68 51 83 90 73 4 43
65 47 11 68 51 83 4 73 90 43
СФОРМУЛИРОВАТЬ ЗАДАЧУ Var a, b, c, d, m, n: integer; Begin Write ('введите натуральные числа a, b, c, d: '); Readln (a, b, c, d
MaxUARU333
Программа вычисляет значение дроби
определяя по алгоритму Евклида НОД числителя и знаменателя, а затем сокращая дробь на найденный НОД.
На олимпиаде по математике предлагались задачи 3 типов. За задачу первого типа участник получил 1 балл, за задачу второго типа - 2 балла, за задачу<span> ответ А</span>
векторная графика не теряет качество при уменьшении или при увеличении а растровая теряет
Для начала инициализация массива, ищем элементы типа "UINT" складываем и умножаем на два, затем делим всё на 2 если числа дробные, то выкидывем, дальше вывод массива.