Program asd; Var A,C:array[1..2500] of integer; i,n,s,ii:integer; sr:real; BEGIN Write('Введите n: '); Readln(n); Writeln('Массив: '); For i:=1 to n do begin A[i]:=1+Random(9); Write(A[i]:2); end; Writeln; Writeln('Все элементы, которые меньше последнего числа в ряду: '); For i:=1 to n do begin if A[i]<A[n] then Write(A[i]:2); end; Writeln(); Writeln('Номер элементов, которые от 3 до 7.: '); For i:=1 to n do begin If (A[i]>=3) and (A[i]<=7) then begin C[i]:=i; Write(C[i],' '); end; end; END.
Мы не можем их никак отсортировать.
1. Значений/диапазона значений у нас нет.
2. Функции принимают разные аргументы, add и sub принимаю a,b, а mult принимает x. Даже примерно сказать не можем.
Можем разобраться на примере.
Пусть a = 5, b = 5, x = 5.
Тогда add вернет нам 10
mult вернёт нам 25
sub вернет нам 0
Получается, что mult всегда выдает нам максимальное значение, а sub минимальное? Не-а.
Другой пример.
a = - 5 , b = - 5, x = 0
Тогда add вернет нам -10
mult вернет нам 0
sub вернёт нам 0
Из этого примера делаем вывод, что mult дает значение такое же, как и sub.
Общий вывод: Всё зависит от переменных, так просто сравнить функции - нельзя.