Помогите составить алгоритм На вход подается одномерный массив из 10 элементов, необходимо узнать наибольший элемент массива и наименьший элемент массива, после чего их сложить

Вопрос школьника по предмету Информатика

Помогите составить алгоритм
На вход подается одномерный массив из 10 элементов, необходимо узнать наибольший элемент массива и наименьший элемент массива, после чего их сложить

Ответ учителя по предмету Информатика

1.

const n=10;

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

max,min,i:integer;

begin

Randomize;

for i:=1 to n do begin

 a[i]:=random(51);

 write(a[i],’ ‘);

 end;

writeln;

max:=a[1]; min:=a[1];

for i:=2 to n do

 begin

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

 if a[i]<min then min:=a[i];

 end;

writeln(‘max = ‘,max,’  min = ‘,min);

writeln(max,’ + ‘,min,’ = ‘,max+min);

end.

Пример:

42 24 9 46 9 47 24 24 29 39 

max = 47  min = 9

47 + 9 = 56

2.

begin

  var a:=ReadArrReal(‘Вводите массив:’,10);

  Writeln(‘Max = ‘,a.Max);

  Writeln(‘Min = ‘,a.Min);

  Writeln(‘Max+Min = ‘,a.Max+a.Min);

end.

Пример:

Вводите массив: 15 23 85 46 70 38 94 43 51 76

Max = 94

Min = 15

Max+Min = 109