Дан массив 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;beginRandomize;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.