Впоследовательности чисел выдать на печать true, если значение максимального числа больше числа 10.

Program gt; var a: array[1..100]of integer; n,i,max: integer; begin read(n); for i: =1 to n do read(a[i]); max: =a[1]; for i: =2 to n do if(a[i]> max)then max: =a[i]; if(max> 10)then writeln('true')else writeln('noooo'); end.

Var       a: array[1..100] of integer;       i, n: integer;       k: integer; begin       {ввод массива}       n : = 20;       writeln('данные массива: ');       for i : = 1 to n do       begin               a[i] : = random(30 + 1) + 1;               write(a[i], ' ');       end;       writeln();             writeln('выбранные: ');       for i : = 1 to n do               if a[i] mod (2 * 3) = 0 then                       write(a[i], ' '); end.

Const       n = 10; var       s, i: integer;       a: array[1..n] of integer; begin       randomize;       for i : = 1 to n do       begin               a[i] : = random(60) - 30;               write(a[i], ' ');               if a[i] > 0 then                       s : = s + a[i];       end;             writeln;       writeln(s); end.