Даны n чисел. как найти сумму чисел , больших чем заданное число a ?

const n=10; var a,s,i: integer; m: array[1..n] of integer; beginread(a); for i: =1 to n doif m[i]> a then s: =s+m[i]; end.

Var   sr: real;   i,j,n: integer;   a: array[1..8,1..4]of integer;   b: array[1..32] of integer; begin for i: =1 to 8 do   begin   for j: =1 to 4 do     begin     a[i,j]: =random(-40,90);     write(a[i,j]: 4);     sr: =sr+a[i,j];     end;   writeln;   end; sr: =sr/32; writeln('среднее: ',sr); for i: =1 to 8 do   for j: =1 to 4 do   if a[i,j]> sr then     begin     n: =n+1;     b[n]: =a[i,j];     end; writeln('количество искомых элементов: ',n); for i: =1 to n do  write(b[i]: 4); end.  

•приняты (младшая группа) •илья вишневский 47 •андрей шереметьев 93 •василий шульц 53 •егор золотарев 64 •владимир ефимов 76 •георгий троицкий 25 •владислав сулимов 36 •леонид пономарёв 73 •семён туманов 91 •филипп мухин 49 •роман беляев 16 •марк фролов 84  младшая группа «акулы»    пн ср сб          14: 00-16: 30 средняя группа    «ягуары»  вт чт пт            15: 00-17: 45 старшая группа    «львы»        пн пт вс             15: 00-17: 15 •приняты (младшая группа) •илья вишневский 47 •андрей шереметьев 93 •василий шульц 53 •егор золотарев 64 •владимир ефимов 76 •георгий троицкий 25 •владислав сулимов 36 •леонид пономарёв 73 •семён туманов 91 •филипп мухин 49 •роман беляев 16 •марк фролов 84 •приняты (средняя группа) •святослав поляков 34 •денис никифоров 88 •дмитрий щербаков 17 •сергей жуков 23 •артем игнатьев 98 •никита трофимов 26 •егор карпов 9 •александр назаров 3 •данил воронин 11 •владимир титов 2 •максим абрамов 61 •артур соболев 13приняты (старшая группа)захар  прокофьев  53евгений  шмидт  94павел  фомин 82юрий  гаврилов 42пётр  киселёв 47