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

var a: array[1..10]of integer;

i,min,max: integer;

begin

min: =10;

max: =0;

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.

php  for($i=0; $i< 10; $i++){  echo $c= mt_rand(0,10);   }

//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) var   a: array of integer;   i, n, min, max, imax, imin: integer; begin   write('число элементов в массиве '); readln(n);   setlength(a, n);   min : = maxint; max : = -maxint;   for i : = 0 to n - 1 do   begin       a[i] : = random(101) - 50;       if a[i] > max then begin           max : = a[i]; imax : = i;       end;       if a[i] < min then begin           min : = a[i]; imin : = i;       end;       write(a[i]: 4);   end;   writeln;   writeln('min = ',min,'  max = ',max);   //меняем местами max и min и выводим массив   swap(a[imax], a[imin]);   for i : = 0 to n - 1 do write(a[i]: 4); end. тестовое решение: число элементов в массиве 10   -19 -14 -44  -3  -4 -46  -1 -39  13  32 min = -46  max = 32   -19 -14 -44  -3  -4  32  -1 -39  13 -46

Pascal оператор ветвления (условный оператор) if     if (условие) then   блок, выполняющийся, если условие верно   else   блок, выполняющийся если условие не верно сокращенная форма (else может отцутствовать) if (условие) then   блок, выполняющийся, если условие верно если условие одно то запись имеет вид   if a > b если условий несколько, то они берутся в скобки and (выполняются все); or (выполняется хоть одно) 1 - верно 0 - неверно ( 1 and 1 = 1; 1 and 0 = 0)     (1 or 1 =1; 1 or 0 = 1;   0 or 0 = 0)   if (a> b) and (a > 0) then если блок да/нет содержит несколько операторов, то они беруться в операторные скобки   if a > b then   writeln (a)     // 1)   if a > b then   begin   writeln (a); // 1)   b : = a + b; // 2)   end; if a > b then   begin   writeln (a); // 1)   b : = a + b; // 2)   end else   begin   writeln (b); //1)   a : = a + b; //2)   end;