Даны 10 произвольных действительных числа(вводятся с клавиатуры).Подсчитать количество отрицательных чисел помогите составить программу
Даны 10 произвольных действительных числа(вводятся с клавиатуры).Подсчитать количество отрицательных чисел помогите составить программу
Гость
Ответ(ы) на вопрос:
Гостьvar a,s,i:integer;
begin
s:=0;
for i:=1 to 10 do
begin
write('Число: '); readln(a);
if a<0 then s:=s+1;
end;
writeln('Кол-во отрицательных чисел: ',s);
end.
ГостьProgram Zorkini;
uses crt;
const n=10;
var
Z: real;
i,k: integer;
begin
k:=0;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(z);
if z<0 then k:=k+1;
end;
writeln('Количество отрицательных чисел ',k);
end.
Не нашли ответ?
Похожие вопросы