Ответ :EАВДЖБГ чтобы научиться решать эти задания , просто открой браузер , зайди на любой сайт и посмотри как выглядит ссылка в адресной строке , удачи!
procedure Minmax(var a, b: integer); var min, max: integer; begin if a < b then min := a else min := b; if a > b then max := a else max := b; a := min; b := max; end;
б в д е, поскольку отдельно взятая цифра в числе не может превышать основание системы счисления. Например, вариант А ошибочен, так, как основание равно 6, а это значит что наибольшей цифрой в числе должно быть 5
Const n = 100; var a: array[1..n] of real; i,j,k: integer; begin writeln('Число элементов в массиве (k<=100)'); readln(k); j := 0; for i := 1 to k do a[i] := random(101) - 50; for i := 2 to k do begin if (a[i-1]>0) and (a[i]>0) or (a[i-1]*a[i]<0) then j:=j+1; end; writeln(j); end.