Задача на Паскаль:в одномерном массиве А(10) определить сумму и количество элементов,которые меньше 5.

На будущее: не выставляйте задач, где надо писать программы, за 5 баллов, потому что за такие баллы обычно их никто не решает.

const  n=10;var  a:array[1..n] of integer;  i,s,k:integer;begin  Randomize;  Writeln('Исходный массив');  s:=0; k:=0;  for i:=1 to n do begin    a[i]:=Random(31)-10;    Write(a[i]:4);    if a[i]<5 then begin Inc(k); s:=s+a[i] end    end;  Writeln;  Writeln('Элементов, меньших 5: ',k,', их сумма равна ',s)end.ПримерИсходный массив  18  18   9  -7   2 -10   9  16  11  -7Элементов, меньших 5: 4, их сумма равна -22