Дан массив A (m), m≤16. Найти сумму S элементов,

удовлетворяющих условию Ai >12, и их количество K. Вывести на

печать исходный массив и величины S и K

Const nx = 50;

Var A:array[1 ... nx]of integer; i, m, s, k:integer;

Begin

WriteLn ('Введи количество элементов массива') ; Read (m) ;

For i: = 1 to m do begin

A[i]: = random (50) - 5;

if A[i]> 12 then begin

s: = s + A[i]; k: = k + 1;

write (A[i]:3) ; end; end;

writeln;

write ('s = ', s:3,'k = ', k) ;

end.