(Паскаль) Составить программа для решения задачи: даны четыре вещественных числа....

Question

(Паскаль) Составить программа для решения задачи: даны четыре вещественных числа. Определить сколько из них отрицательных

Answer 1

Var a:real;
k,i:integer;
begin
for i:=1 to 4 do
begin
Write('Ввеите число № ',i,' >>> ');
read(a);
if a<0 then k+=1;<br>end;
Writeln('===========================');
Write('Отрицательных чисел >>> ',k);
end.

Answer 2

Var
a,b,c,d,k:real;
begin
k:=0;
writeln('Vvedite 4 chisla');
readln(a,b,c,d);
if a<0 then k:=k+1;<br>if b<0 then k:=k+1;<br>if c<0 then k:=k+1;<br>if d<0 then k:=k+1;<br>writeln('Kol-vo otritsatelnih chisel = ',k);
end.