Информатика Архивный вопрос

PascalABC.NET. Нужно создать программу которая вычислит сколько в выборке отрицательных чисел. Помогите пожалуйста!

Нет комментариев

Ответы

Гость

Либо так (проверь)
const N =4;type TMas = array[1..N] of byte; procedure InitMass(var M : TMas);var i:integer;begin for i:=1 to N do M[i] := 1;end; procedure PrintMas(const M : TMas);var i:integer;begin for i:=1 to N do Write(M[i]); WriteLn;end; function IsFinish(const M : TMas) : boolean;var i:integer;begin IsFinish := false; for i:=1 to N do if M[i]<N then Exit; IsFinish := true;end; procedure AddOne(var M : TMas);var i,c : integer;begin c := 1; for i:=N downto 1 do begin M[i] := M[i] + c; c := (M[i]-1) div N; if M[i]>N then M[i] := M[i] mod N; end;end; var mass : TMas;begin WriteLn('-----------------------------------------------------'); InitMass(mass); PrintMas(mass); while Not IsFinish(mass) do begin AddOne(mass); PrintMas(mass); end; WriteLn('Done.')end. (взял с сайта)

Либо так.
var
n,x:integer;
begin
n:=0;
repeat
readln(x);
if x<0 then inc(n);
until x=0;
write('kol-vo=',n);
end. (написал сам)

4 комментария:

не робит

там где колво твое количество (во втором)

program prog;var a,b,c,i:integer;beginWriteln('Введите 3 числа');Readln(a,b,c);if a<0 then i:=i+1;if b<0 then i:=i+1;if c<0 then i:=i+1;writeln('Количество отрицательных чисел: ',i);end.

ну, я не профи.