Question

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

Answer 1

лови решение) скинул файлом ибо окно ответа не позволяем ктрл+с

c76d83439de32a2a47a7fb696d207032.pas

Answer 2

var
i,min,max:integer;
a:array[1..10] of integer;
begin
min:=10;
for i:=1 to 10 do
 a[i]:= Random(11);

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

writeln(min+max);
end.

c76d83439de32a2a47a7fb696d207032.pas