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

Question

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

Comments

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

---

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

---

const n=20;

---

//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]<min) then min:=a[i];sum:=max+min;writeln('Max: ', max, ' Min: ', min);writeln('Summa= ',sum);readln;end.

---

Соревнуетесь в том, чтобы написать самую длинную прорамму? ))))

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=20;

Var
 ar:array[1..n] of integer;
 max,min,i:integer;
begin
 max:=integer.MinValue;
 min:=integer.MaxValue;
 writeln('Array:');
 for i:=1 to n do
  begin
   ar[i]:=random(-20,20);
   write(ar[i]:4);
   if ar[i]   if ar[i]>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