Посчитать число положительных элементов массива, заменить положительные элементы на нули - PascalABC.NET
Формулировка задачи:
Нужно создать массив из 20 чисел от -10 до 10.
Полученные положительные числа нужно вывести на экран, их кол-во, далее нужно заменить положительные на нули и написать новый массив.
У меня получилась только половина программы, но числа выводятся в неправильном порядке.
Заранее спасибо, за помощь
Решение задачи: «Посчитать число положительных элементов массива, заменить положительные элементы на нули»
textual
Листинг программы
uses GraphABC; var a:array [1..10] of integer; s:=0; begin writeln('Массив:'); for var i:=1 to 10 do // Заполняем и выводим массив begin a[i] := random(-10,10); write (a[i],' '); end; writeln(); writeln('Положительные числа массива:'); for var i:=1 to 10 do //Выводим положительные, счетаем их и заменяем на 0 begin if (a[i] >= 0) then begin write (a[i],' '); s := s + 1; a[i] := 0; end; end; writeln(); writeln('Новый массив:'); for var i:=1 to 10 do write (a[i],' '); //Выводим новый массив writeln(); write('Кол-во положительных: ',s); readln; end.
Объяснение кода листинга программы
- Объявлены переменные: массив a размером 10, счетчик s инициализирован нулем.
- Выводится сообщение
Массив:
и через пробел выводится каждый элемент массива a. - Для каждого элемента массива проверяется его значение: если оно больше или равно нулю, то элемент выводится на экран, к счетчику s прибавляется единица и значение элемента заменяется на ноль.
- Выводится сообщение
Новый массив:
и через пробел выводится каждый элемент массива a. - Выводится сообщение
Кол-во положительных:
и значение переменной s. - Программа ожидает ввода пользователя для завершения работы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д