Предмет: Информатика,
автор: danilushakov05
Составить программу для определения количества отрицательных чисел.
Дано: n целых чисел х, вводимых с клавиатуры.
Ответы
Автор ответа:
1
//Язык Pascal
Var
n, i, num, counter: integer;
Begin
Write('Введите n: ');
Readln(n);
for i := 1 to n do
begin
Write('Введите ', i, ' число: ');
Readln(num);
if (num < 0) then
counter := counter + 1;
end;
Writeln();
Writeln('Отрицательных чисел: ', counter);
End.
Похожие вопросы
Предмет: Математика,
автор: 1092009b
Предмет: Литература,
автор: valeriateplaa
Предмет: Литература,
автор: Dominika1215
Предмет: Математика,
автор: artemsanin