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

Question

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

Answer 1

Const n=16;
var a: array[1..n] of integer;
    i,k,s,m: integer;
begin
Randomize;
writeln('размер массива(<=16):  ');<br>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.