Дан массив A (m), m≤16. Найти сумму S элементов, удовлетворяющих условию Ai >12, и их количество K. Вывести на печать исходный массив и величины S и K

program zz1;

var i, S, k, n:integer; / / задаем переменные целого типа

m:array [1 ... 16] of integer;

begin

write (' введите количество элементов в массиве '); read (n);

for i:=1 to n do / / записываем в массив числа случайным образом

m[i]:=random (21);

for i:=1 to n do / /выводим массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n do / / находим сумму и их количество

if m[i]>12 then begin s:=s + m[i]; k:=k + 1; end;

writeln (' сумма элементов больших 12 = ', s); / / выводим ответ

write (' количество элементов больших 12 = ', k);

end.