В одном массиве целых чисел найти сумму max и min элементов массива

Question

Информатика

Ангелика

28 ноября, 13:47

В одном массиве целых чисел найти сумму max и min элементов массива

+3

Ответы (1)

Знаете ответ?

Маргуша · Answer 1

var

n, k, i, max, sum, min: integer;

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

begin

writeln ('vvedi n') ;

read (n) ;

writeln (n) ;

k:=0;

for i:=1 to n do

read (a[i]) ;

max:=a[1];

min:=a[1];

for i:=1 to n do

begin

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

end;

sum:=min+max;

writeln ('sum=', sum) ;

end.