Дан массив 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; begin Randomize; 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.
var a: array[1..n] of integer;
i,k,s,m: integer;
begin
Randomize;
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.