Question

Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапозоне от 0 до 10 и находит сумму минимального и максимального элементов массива. Помогите пожалуйста, составьте программу, 9 класс

Answer 1

var
  a: array [1..10] of integer;
  i, d, c: integer;
 
begind:=0;
c:=0;
for i:=1 to 10 do
  begin
    a[i]:= random(11);
    Writeln('a[', i,']= ', a[i]);
  end;   for i:= 2 to 10 do
    begin
      if (a[i]<a[i-1]) and (a[i]<d) then d:=a[i];
      if (a[i] > a[i-1]) and (a[i] > c) then c:=a[i]
    end;
 
Writeln('Наибольший элемент массива = ', c);
Writeln('Наименьший элемент массива = ', d);

end.