30 баллов дана последовательность 4.5; -3.1; 2.1;1.8;0.13;-1.6;1.7;0.3 вещественных...

Question

30 баллов дана последовательность 4.5; -3.1; 2.1;1.8;0.13;-1.6;1.7;0.3 вещественных чисел.составить программу которая находит число отрицательных членов последовательности

Answer 1

Запускаешь программу и пишешь сначала количество чисел в твоей последовательности: 8, далее вводишь свои числа.

var n,i,k:integer;   
a:real; 
begin 
read(n); 
while iread(a);   
if (a<0) then k:=k+1; i:=i+1;    <br>end;   
writeln(k);   
end.