Дан массив из 10 элементов в диапазоне от 0 до 100

Найти S элементов, больших 50 и посчитать их количество

Program n1;

var a: array[1 ... 10] of integer;

S, i, k: integer;

begin

randomize;

write ('массив: ');

S:=0;

k:=0;

for i:=1 to 10 do

begin

a[i]:=random (101);

write (a[i],' ');

end;

writeln;

write ('сумма a[i]>50: ');

for i:=1 to 10 do if a[i]>50 then

begin

k:=k+1;

S:=S+a[i];

end;

writeln (S);

write ('кол-во: ', k);

end.