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

Question

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

Answer 1

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.