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

Question

Информатика

Андроня

10 сентября, 04:36

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

+5

Ответы (1)

Знаете ответ на вопрос?

Аринка · Answer 1

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]
end;

writeln;

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

end.