1.Найти наибольший элемент одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.

2.Найти номер наименьшего элемента в массиве, заданного датчиком случайных чисел на интервале [-20, 25]. Размер произвольный.

program eee;const n=5;vara:array[1..n] of integer;i,min,q: integer;beginmin:=26;for i:=1 to n do beginA[i]:=random(-20,25);writeln(A[i]);if min>A[i] thenq:=i;min:=A[i];end;writeln(q);end.

program eee;

const n=5;

var

a:array[1..n] of integer;

i,max: integer;

begin

for i:=1 to n do begin

readln(A[i]);

if max<A[i] then

max:=A[i];

end;

writeln(max);

end.