Найти последний нулевой элемент в последовательности Х1,Х2...Хn и удалить его из ряда

@programmm · Регистрация: 05.12.2012

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

1.Найти последний нулевой элемент в последовательности Х1,Х2...Хn и удалить его из ряда.

@Puporev · 06.12.2012, 09:29

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,ip:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=-3+random(5);
  write(a[i]:4);
 end;
writeln;
ip:=0;
i:=n;
while(i>=1)and(ip=0) do
if a[i]=0 then ip:=i
else i:=i-1;
if ip=0 then write('В последовательности нет нулевых элементов')
else
 begin
  writeln('Индекс последнего нулевого элемента=',ip);
  if ip=n then n:=n-1
  else
   begin
    for i:=ip to n-1 do
    a[i]:=a[i+1];
    n:=n-1;
   end;
  writeln('Удаление последнего нулевого элемента');
  for i:=1 to n do
  write(a[i]:4);
 end;
readln
end.

@programmm 0 / 0 / 1 Регистрация: 05.12.2012 Сообщений: 9
		1
	Найти последний нулевой элемент в последовательности Х1,Х2...Хn и удалить его из ряда 05.12.2012, 22:59. Показов 1806. Ответов 1 Метки нет (Все метки) 1.Найти последний нулевой элемент в последовательности Х1,Х2...Хn и удалить его из ряда. 0

	06.12.2012, 09:29

Найти последний нулевой элемент в последовательности Х1,Х2...Хn и удалить его из ряда

Решение