Создать массив из 9 целых чисел: 12 24 3 4 16 15 7 18 27. найти среднее арифметическое элементов массива больших 10

var a : array [1..9] of integer = ((12), (24), (3), (4), (16), (15), (7), (18), (27)); sum, count, i : integer; begin sum : = 0; count : = 0; for i : = 1 to 9 do if a[i] > 10 then begin inc (count); inc (sum, a[i]); end; writeln ('таких элементов ', count); if count > 0 then begin writeln ('их сумма ', sum); writeln ('их среднее арифметическое ', sum / count); end; end.

Хотите экзотики? получите решение на множествах! uses crt; var   l: set of 'a'..'z';   s: string;   c: char;   i,n: byte; begin   clrscr;   readln(s);   for i: =1 to length(s) do begin       c: =upcase(s[i]);       if c in ['a'..'z'] then include(l,c)   end;   n: =0;   for c: ='a' to 'z' do       if c in l then inc(n);   writeln(n);   readkey end. тестовое решение: hello world! 7

1)cсортировка методом пузырька  const n=10; var    a: array[1..n] of integer;       i, j, k: integer;   begin      randomize;         write ('исходный массив: ');       for i : = 1 to n do begin          a[i] : = random(256);           write (a[i]: 4);     end;       writeln; writeln;           for i : = 1 to n-1 do          for j : = 1 to n-i do              if a[j] < a[j+1] then begin                  k : = a[j];                   a[j] : = a[j+1];                   a[j+1] : = k              end;         write ('массив по возрастанию: ');       for i : = 1 to n do          write(а[i]: 4);         writeln;   readln; end.2) const    n = 10;   var    b: array[1..n] of integer;       i, j, x: integer;   begin      randomize;         write ('исходный массив: ');       for i : = 1 to n do begin          b[i] : = random(256);           write (b[i]: 4);       end;       writeln;   writeln;     x: =b[2]; b[2]: =b[n-1]; b[n-1]: =x;         write ('массив   ');       for i : = 1 to n do          write (b[i]: 4);         writeln;   readln end.3)const    n = 10;   var    c: array[1..n] of integer;       i, j, x: integer;   begin      randomize;       write ('исходный массив: ');       for i : = 1 to n do  begin          c[i] : = random(256);           write (c[i]: 4);       end;       writeln; writeln;     writeln;   for i: =5 to n-1 doc[i]: =c[i+1];     write ('массив   ');       for i : = 1 to n-1 do          write (c[i]: 4);         writeln;   readln; end.