Даны 5 уелых чисел. Посчитайте минимально возможную и максимально возможное суммы выбрав ровно 4 числа из заданных изначально

Спасибо

Удачи,тоже решаю это сейчас))

есть у тебя реение про массив А длины Н?

Нет)))

Var i,j,max,min,s,p:integer: a:array[1...5] of integer;Beginassign(input,'D.in');reset(input);assign(output,'D.out');rewrite(output);for i:=-1 ot 5 do read(a[i]);    max:=a[1];for i:=1 to 5 doif a[i]  max then s:=a+1;    writeln(s):  min:=a[5];for i:=1 to 5 doif a[i]<min then p:=p+i;write[p];readlnend.