TurboPascal
В массиве k1, k2 , ..., k60 найти сумму чисел меньших единицы.
Объясните как решать, пожалуйста.

Напишу на PascalABC надеюсь Turbo похожиprogram Test;const N=60;var k:array [1..N] of integer;sum:integer;beginfor i:=1 to 60 do{заполнение массива и сразу подсчет суммы}beginreadln(k[i]);{вводите элемент с индексом i}if k[i]<1thensum:=sum+k[i];{если его значение меньше еденице, то он прибавляется к сумме}end;writeln(sum);{вывод суммы на экран}end.