В одномерном массиве А(10) вычислить количество отрицательных элементов, меньших чем k.

Вопрос школьника по предмету Информатика

В одномерном массиве А(10) вычислить количество отрицательных элементов, меньших чем k.

Ответ учителя по предмету Информатика

Program n1;

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

k,kol,i: integer;

begin

randomize;

write(‘k=’);

readln(k);

kol:=0;

write(‘исходный массив: ‘);

for i:=1 to 10 do

begin

a[i]:=random(21)-10;

write(a[i],’ ‘);

if (a[i]<0) and (a[i]<k) then kol:=kol+1;

end;

writeln;

writeln(‘кол-во эл меньше ‘,k,’: ‘,kol);

end.