В одномерном массиве вычислить количество отрицательных элементов, меньше чем -k
В одномерном массиве вычислить количество отрицательных элементов, меньше чем -k
Гость
Ответ(ы) на вопрос:
Гостьconst
N=50;
var
arr: array [1 .. N] of integer;
i,tc,c: integer;
begin
c:=0; {otricatel'nie 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('Otricatel''nih elementov=',c);
end. должно работать
Не нашли ответ?
Похожие вопросы