Найти номер первого и последнего нулевого элемента заданного массива - Free Pascal
Формулировка задачи:
Напишите программу, которая печатает номер первого и последнего нулевого элемента заданного массива или сообщение о том, что массив не содержит нулевых элементов.
Решение задачи: «Найти номер первого и последнего нулевого элемента заданного массива»
textual
Листинг программы
Program pos; var a : array [1..100] of integer; i, n, k, l : integer; begin write('Введите размер массива : '); readln(n); writeln('Введите элементы массива (через пробел) : '); for i:=1 to n do begin read(a[i]); end; writeln; for i:=1 to n do if a[i] = 0 then begin k:=i; {первый} break; end; for i:=1 to n do begin if a[i] = 0 then l:=i {Последний} end; if (k and l)>0 then begin writeln('Первая позиция нулевого элемента = ',k); writeln('Последняя позиция нулевого элемента = ',l) end else writeln('Не найдено нулевых элементов в данном массиве!'); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д