Question

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

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

Answer 1

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.