Составить программу, которая заполняет массив а(1...10) случайных целых чисел в диапазоне от 0 до 10 и находит сумму минимальных и максимальных элементов массива.

1

Ответы и объяснения

2013-12-12T21:54:20+04:00
Const
  n= 10;

var
  i, max, min: integer;
  a: array [1..n] of integer;

begin
  randomize;
  for i:=1 to n do a[i]:= random(n+1);
  max:= a[1];
  min:= a[1];
  for i:=1 to n do begin
    if a[i]>max then max:= a[i];
    if a[i]<min then min:= a[i]
  end;
  writeln(max+min)
end.