1. Ввести 3 числа и выбрать наибольшее. 2. Ввести 5 чисел и выбрать наибольшее. P.S. (в…

const Count=5; // количество вводимых чиселvar m: array [1… Count] of Integer; i, e: Integer; beginWriteln ('Введите числа: '); for i: =1 to Count do begin Write (i ,': '); Readln (m[i]); end; e: =m[1]; for i: =1 to Count do if m[i] > e then e: =m[i]; Write ('Наибольшее: 'e); Readln; end.