Вводится число Н. а за ним Н целых чисел-элементов массива. обнулите все отрицательные элементы массива и посчитайте количество остальных. через паскаль абс
Вводится число Н. а за ним Н целых чисел-элементов массива. обнулите все отрицательные элементы массива и посчитайте количество остальных. через паскаль абс
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program CountPositive;
var
N, i, count: integer;
arr: array[1..100] of integer;
begin
count := 0;
write('Введите количество элементов массива: ');
readln(N);
write('Введите элементы массива: ');
for i := 1 to N do
begin
read(arr[i]);
if arr[i] >= 0 then
count := count + 1;
end;
writeln('Количество положительных элементов массива:', count);
end.