Напишите программы в abc паскале : 1)надо ввести три числа и найти из них наибольшее; 2)надо ввести пять чисел и найти из них наибольшее заранее !

var a: array [1..100] of real; i,n: integer; max: real; begin      writeln("введите кол-во чисел");       read(n);       for i : = 1 to n do            read(a[i]);       max: =a[1];       for i: =2 to n do            if max< a[i] then                  max: =a[i];       write(max); end.

program program1;

function maximum(a,b: integer): integer; beginif a> b then result: =a else result: =b; end;

varmas: array [1..100] of integer; i,k,max: integer; beginwrite('введите кол-во чисел: '); readln(k); for i: =1 to k dobeginwrite('a',i,'='); readln(mas[i]); end; max: =mas[1]; for i: =2 to k domax: =maximum(max,mas[i]); writeln('максимальное число=',max); end.

тоже решаю гиа. в общем, принцип таков: после цикла чертёжник чтобы вернуться в ту же точку повторяет уже совершённые им же действия, только в зеркальном отражении.

то есть, если он после цикла смещается на -8, 12, то в цикле он сместился всего на 8, -12.

цикл повторялся 4 раза, значит за один цикл он смещается на 2, -3.

теперь просто добавляем недостающие цифры в первую команду:

-2, -4

ответ: 1.