Question

дан одномерный целочисленный массив состоящий из 10 элементов составьте программу определения значемния суммы наибольшего и наименьшего элементов этого массива массив заполнить любым способом

Answer 1

program Project1;
var i, max, min:integer; mass:array [0..9] of integer;
begin
  randomize;
  for i:=1 to 9 do mass[i]:=Random(100);
  max:=0;
  min:=100;

  for i:=1 to 9 do begin
    if max<mass[i] then max:=mass[i];
    if min>mass[i] then min:=mass[i];
  end;

  writeln('max: ', max);
  writeln('min: ', min);
  writeln('max + min = ', max+min);
end.

Answer 2

Спасибо большое))