Задача на Паскаль: в одномерном массиве А (10) определить сумму и количество элементов, которые меньше 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