Программа в Pascal

[John666]

Программа в Pascal

Помогите написать программу в Паскале:
"Ввести 5 чисел и подсчитать число отрицательных чисел".
Заранее спасибо.

 

[sc2melvin]

Стучите, 648964446

 

[ww01031977]

Var A:array[1..5] of real;
i,k:integer;
begin
for i:=1 to 5 do
begin
write(' ',i,'=');readln(A);
end;
for i:=1 to 5 do
if a<0 then k:=k+1;
writeln('k=',k);
end.

 

[AlexZir]

А зачем так длинно и с массивом? Можно же обойтись и одним циклом, будет работать быстрее.

var x: real;
i,s: byte;
begin
s:=0;
writeln('Введите 5 чисел:');
for i:=1 to 5 do begin
readln(x);
if x<0 then inc(s);
end;
writeln('Было введено ',s,' отрицательных чисел');
readln;
end.

 

[kreol]

а чтоб оптимизировать еще немного можно вынести первый writeln из цикла и сразу попросить ввести 5 цифр через пробел и объявить i,s: byte ))

 

[AlexZir]

Тоже вариант )