Вычислить количество элементов массива, равных нулю - Pascal ABC
Формулировка задачи:
одномерном массиве, с n действительных элементов, вычислить: количество элементов равных нулю, вывести ненулевые элементы на экран.
Решение задачи: «Вычислить количество элементов массива, равных нулю»
textual
Листинг программы
const n = 10; var k, i: integer; x: array [1..n] of real; begin randomize; writeln('Исходный массив:'); for i := 1 to n do begin x[i] := -n div 2 + random * n; write(x[i]:8:2); end; writeln; k := 0; writeln('Ненулевые элементы массива:'); for i := 1 to n do begin if x[i] = 0 then inc(k) else write(x[i]:8:2); end; writeln; writeln('Количество элементов равных нулю: ', k) end.
Объяснение кода листинга программы
В данном коде объявлены следующие переменные:
- n - целое число, равное 10 (предположительно, это размер массива);
- k - целочисленная переменная, которая будет использоваться для подсчета количества элементов массива, равных нулю;
- i - целочисленная переменная, используется для итерации по элементам массива;
- x - массив, состоящий из 10 элементов типа real (предполагается, что это массив чисел с плавающей точкой); Код начинается с инициализации генератора случайных чисел и вывода исходного массива на экран. Затем происходит итерация по каждому элементу массива. Если элемент равен нулю, то переменная k увеличивается на единицу. В конце выводится количество элементов, равных нулю. Таким образом, данный код позволяет вычислить количество элементов массива, равных нулю.