Дан массив, состоящий из 20 целых чисел. Найдите сумму наибольшего и

Дан массив, состоящий из 20 целых чисел. Найдите сумму наибольшего и малого частей этого массива. Объяснение: в данном задании нам заранее не известен спектр, из которого берутся целые числа для наполнения массива. Но при составлении программки вы его сможете придумать сами.

Штрахин Никита 2019-08-06 22:12:15

Объясненье: когда диапазон данных безызвестен, то за минимум и максимум берут 1-ый элемент, а перебор начинаю со последующего.

Валерия Кюбарсепп 2019-08-06 22:21:05

Или употребляют языки (или версии языков), где такие задачки решаются без циклов вообще.

Тамара Садоха 2019-08-06 22:27:55

const n=20;

Marina Rogatova 2019-08-06 22:32:55

//Turbo Pascal uses crt;const n=20;type massiv=array[1..n] of integer;varsum:integer;i,max,min:integer;a:massiv;beginclrscr;randomize;for i:=1 to n doa[i]:=random(20);writeln('Massiv: ');for i:=1 to n dowrite(a[i]:3);writeln;max:=a[1];min:=a[1];for i:=2 to n doif (a[i]>max) then max:=a[i]else if (a[i] for i:=1 to n do
  begin
   ar[i]:=random(-20,20);
   write(ar[i]:4);
   if ar[i]lt;min then min:=ar[i];
   if ar[i]gt;max then max:=ar[i];
  end;
 writeln;
 writeln('Sum=',min+max);
end.

Пример работы программы:
Array:
  20   5  -1 -13 -14  16 -10  19  -6 -12   6 -14   9 -11  12  -9 -11 -14  10  20
Sum=6