Дан массив a(m), m≤16 . найти сумму s элементов, удовлетворяющих условию ai > 12 , и их количество k . вывести на печать исходный массив и величины s и k

Const n=16; var a: array[1..n] of integer;     i,k,s,m: integer; begin randomize; writeln('размер массива(< =16):   '); readln(m); s: =0; k: =0; writeln('исходный массив'); for i: =1 to m do   begin   a[i]: =random(100)-50;   write(a[i]: 4);   if a[i]> 12 then     begin     s: =s+a[i];     k: =k+1;   end;   end;   writeln;   writeln('число элементов > 12 = ',k,' сумма = ',s);   end.

пролететь - расстояние

проехать на лифте - номер этажа 

спрыгнуть - высота, скорость

поесть - количество

повернуть - время или направление

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает