Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

в одномерном массиве вычислить количество отрицательных элементов, меньше чем -k

Ответ оставил Гость

const
N=50;
var
arr: array [1 .. N] of integer;
i,tc,c: integer;
begin
c:=0; {otricatelnie elementi}
writeln(Äëèíà ìàññèâà?);
readln(tc);
{vvod massiva}
for i:=1 to tc do
readln(arr[i]);

for i:=1 to tc do
if arr[i]<0 then
c:=c+1;
writeln(Otricatelnih elementov=,c);
end.

должно работать