Напишите программу, которая случайным образом заполняет массив из 10 элементов целыми числами из диапазона [-6; 9]. и вывести все элементы массива на экран.

Var a: array [1..10]   of real; i: byte; begin randomize; for i: =1 to 10 do  a[i]: =random(16)-6); for i: =1 to 10 do writeln(a[i]); end;

#include < iostream> #include < iomanip> using namespace std; int main() {     int i=0,n,mn=9,mx=0,k;       cout< < "n = ";   cin> > n;     while (n! =0)      {       k=n % 10;       if (k> mx)   mx=k;       if (k< mn)   mn=k;       n=n/10;         }     cout< < "max "< < mx< < endl;     cout< < "min "< < mn< < endl< < endl;     system("pause");     return(0); }

Var n,t,s,d,e: integer; begin writeln(''); repeat writeln('введите сумму в рублях< =1000'); readln(n); until (n> 0) and (n< =1000); t: =n div 1000; n: =n-t*1000; s: =n div 100; n: =n-s*100; d: =n div 10; if d< > 1 then begin n: =n-d*10; e: =n; end; case t of         1: write('тысяча '); end; if s> =0 then case s of         1: write('сто ');         2: write('двести ');         3: write('триста ');         4: write('четыресто ');         5: write('пятьсот ');         6: write('шестьсот ');         7: write('семьсот ');         8: write('восемьсот ');         9: write('девятьсот '); end; if d> =0 then case d of         1:         case n of         10: write('десять ');         11: write('одиннадцать ');         12: write('двенадцать ');         13: write('тринадцать ');         14: write('четырнадцать ');         15: write('пятнадцать ');         16: write('шестнадцать ');         17: write('семнадцать ');         18: write('восемнадцать ');         19: write('девятнадцать ');         end;         2: write('двадцать ');         3: write('тридцать ');         4: write('сорок ');         5: write('пятьдесят ');         6: write('шестьдесят ');         7: write('семьдесят ');         8: write('восемьдесят ');         9: write('девяносто '); end; if e> =0 then case e of         1: write('один ');         2: write('два ');         3: write('три ');         4: write('четыре ');         5: write('пять ');         6: write('шесть ');         7: write('семь ');         8: write('восемь ');         9: write('девять '); end; if (e=1) then write('рубль ') else if (e=0)or(e> 4) then write('рублей ') else write('рубля '); end.