Написать программу которая определяет количество отрицательных элементов массива. Размер- 10 элементов. диапозон -10 до 10. в случайных числах.массив не выводить
Написать программу которая определяет количество отрицательных элементов массива. Размер- 10 элементов. диапозон -10 до 10. в случайных числах.массив не выводить
Гость
Ответ(ы) на вопрос:
Гостьvar
m : array [0..9] of Integer;
c, i : integer;
begin
c:=0;
for i := 0 to 9 do begin
read(m[i]);
if m[i] < 0 then
c:= c+1;
end;
write(c);
end.
Не нашли ответ?
Похожие вопросы