Предмет: Информатика,
автор: wanykondratow01
Дана последовательность N чисел. Составить программу определения количества отрицательных чисел последовательности
Ответы
Автор ответа:
0
var n,k,i,a:longint;
begin
k:=0;
readln(n);
for i:=1 to n do begin readln(a); if(a<0) then k:=k+1; end;
writeln(k);
end.
Интересные вопросы
Предмет: Математика,
автор: qwsadtyui
Предмет: Английский язык,
автор: samirzanov
Предмет: Английский язык,
автор: darianovocvet
Предмет: Математика,
автор: слон16
Предмет: Математика,
автор: Pro100Vanya555