SOS!! Составить задачу подсчета отрицательных элементов из пяти целых чисел(в Pascal ABC.Net)
SOS!! Составить задачу подсчета отрицательных элементов из пяти целых чисел(в Pascal ABC.Net)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var a,i,k: integer;
begin
k:=0;
for i:=1 to 5 do
begin
readln(a);
if a<0 then k:=k+1;
end;
writeln(k);
end.
Пример:
5
-7
2
9
-3
2