Создать массив случайных чисел найти сумму элементов этого массива, которые больше 9. написать на паскале

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

i,s: integer;

begin

for i: =1 to 30 do begin

a[i]: =random(20)+1; {промежуток от 1 до 20}

if a[i]> 9 then s: =s+a[i];

write(a[i],' ');

end;

writeln;

writeln(s);

end.

 

Всё, что находится между комментариями {1+}{1-} относится к первой программе, {2+}{2-} — ко второй. const   n = 5;   type   matrix = array[1..n, 1..n] of integer;   {2+}   row = array[1..n] of integer;   {2-}   {1+} function maxelemofmaindiag(m: matrix): integer; var   i, max: integer; begin   max : = m[1, 1];   for i : = 2 to n do     if m[i, i] > max then        max : = m[i, i];   maxelemofmaindiag : = max; end; {1-}   {2+} function minelemofcolumns(m: matrix): row; var   i, j: integer;   r: row; begin   for i : = 1 to n do   begin     r[i] : = m[1, i];     for j : = 2 to n do       if m[j, i] < r[i] then         r[i] : = m[j, i];   end;   minelemofcolumns : = r; end; {2-}   var   m: matrix;   {2+}   r: row;   {2-}   i, j: integer;   begin   writeln('исходный массив: ');   randomize;   for i : = 1 to n do   begin     for j : = 1 to n do     begin       m[i, j] : = random(100) + 1;       write(m[i, j]: 4);     end;     writeln;   end;   {1+}   writeln('максимальный элемент главной диагонали равен ', maxelemofmaindiag(m));   {1-}   {2+}   r : = minelemofcolumns(m);   writeln('минимальные элементы столбцов: ');   for i : = 1 to n do     write(r[i]: 4);   writeln;   {2-} end.   пример вывода: исходный массив:   22  13  80  77  14   50  86  49  22    7   88  68  48  27  79   100    3  11  43  94   85  30  53  34    9 максимальный элемент главной диагонали равен 86 минимальные элементы столбцов:   22    3  11  22    7

использовать чертежникалг домикначсместиться в точку (3,3)подпр домикподпр домикподпр домикподпр домикподпр домикконалг. подпр домикначустановить цвет ("желтый")опустить перосместиться на вектор(0,3)сместиться на вектор(4,0)сместиться на вектор(0,-3)сместиться на вектор(-4,0)поднять перосместиться на вектор(0,3)опустить перосместиться на вектор(2,2)сместиться на вектор(2,-2)поднять перосместиться на вектор(-3,-2)опустить перосместиться на вектор(0,1)сместиться на вектор(2,0)сместиться на вектор(0,-1)сместиться на вектор(-2,0)поднять перосместиться на вектор (5,-1)кон