Найти номер первого и последнего нулевого элемента заданного массива

@Skor · Регистрация: 22.01.2013

Author24 — интернет-сервис помощи студентам

Напишите программу, которая печатает номер первого и последнего нулевого элемента заданного массива или сообщение о том, что массив не содержит нулевых элементов.

@Andruhach · 22.01.2013, 03:56

Pascal

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.

@Skor · 22.01.2013, 10:26 **[ТС]**

Спасибо, выручил))

@Skor 0 / 0 / 0 Регистрация: 22.01.2013 Сообщений: 8
		1
	Найти номер первого и последнего нулевого элемента заданного массива 22.01.2013, 02:27. Показов 2839. Ответов 2 Метки нет (Все метки) Напишите программу, которая печатает номер первого и последнего нулевого элемента заданного массива или сообщение о том, что массив не содержит нулевых элементов. 0

@Skor 0 / 0 / 0 Регистрация: 22.01.2013 Сообщений: 8
	22.01.2013, 10:26 [ТС]	3
	Спасибо, выручил)) 0

Опции темы

Найти номер первого и последнего нулевого элемента заданного массива

Решение