Найти количество ненулевых элементов массива и вывести их номера - Pascal ABC
Формулировка задачи:
Разработать алгоритм программы, которая вводит последовательность
из N чисел, считает количество ненулевых элементов и выводит номера этих элементов .
Решение задачи: «Найти количество ненулевых элементов массива и вывести их номера»
textual
Листинг программы
uses crt;
const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin
For i:=1 to n do
begin
Write('a[',i,']=');
readln(a[i]);
if a[i]<>0 then inc(x);
end;
Writeln;
Writeln('Массив: ');
For i:=1 to n do
write(a[i]:3);
Writeln;
Writeln('Ненулевых элементов - ',x);
For i:=1 to n do
if a[i]<>0 then writeln('a[',i,']=',a[i]);
end.
Объяснение кода листинга программы
- Импортируется модуль CRT, который содержит функции для работы с консолью.
- Задается константа n, которая определяет размер массива.
- Создается массив a типа array [1..n] of integer, который будет содержать целые числа.
- Создаются две переменные i и x типа integer, которые будут использоваться в цикле и для подсчета количества ненулевых элементов.
- Запускается цикл for i:=1 to n, который будет проходить по каждому элементу массива.
- Внутри цикла выводится приглашение для ввода значения элемента массива.
- С помощью функции readln вводится значение элемента массива и сохраняется в соответствующем элементе массива a[i].
- Если значение элемента массива a[i] не равно нулю, то увеличивается значение переменной x на единицу.
- После завершения цикла выводится строка, содержащая значения всех элементов массива a.
- Выводится количество ненулевых элементов массива, которое равно значению переменной x.
- Запускается цикл for i:=1 to n, который будет проходить по каждому элементу массива.
- Внутри цикла выводится название и значение ненулевого элемента массива a[i].