Информатика

Фёкла

3 июля, 12:34

Дано условие задачи и ее решение, содержащее пропуски. Заполнить пропуски

Type LinMass = Array[1 ... 100] Of Integer;

Var A : LinMass; N, i, max, min : Integer;

begin

Write ('Количество элементов массива? ') ; ReadLn (N) ;

For I : = 1 To N Do

Begin

Write ('Введите A[', I, '] ') ; ReadLn (A[I]) ;

End;

max:=1; min:=__;

For I : = 2 To N Do

begin

if a[i]>a[max] then max:=i;

if a[i] end;

writeln ('Ответ ', (a[max]__a[min]) / 2 : 7:2)

end.