Поменять местами последний ноль в линейной последовательности с первым элементом

@лёлька · Регистрация: 02.02.2010

Написать программу, которая меняет местами последний ноль в линейной последовательности с первым элементом этой последовательности.

@Puporev · 09.02.2010, 10:13

Pascal

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j:integer;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i],' ');
 end;
writeln;
writeln;
i:=n;
j:=0;
while (a[i]<>0)and(i>0) do{ищем первый 0 с конца}
i:=i-1;
j:=i;
if j=0 then write('В последовательности нет нолей!')
else if j=1 then write('В последовательности 1 ноль и он первый!')
else
 begin
  x:=a[1];
  a[1]:=a[j];{меняем местами}
  a[j]:=x;
  writeln('Обмен последнего нулевого и первого:');
  for i:=1 to n do
  write(a[i],' ');
 end;
readln
end.

@лёлька 17 / 17 / 0 Регистрация: 02.02.2010 Сообщений: 92
		1
	Поменять местами последний ноль в линейной последовательности с первым элементом 09.02.2010, 09:20. Показов 1163. Ответов 1 Метки нет (Все метки) Написать программу, которая меняет местами последний ноль в линейной последовательности с первым элементом этой последовательности. 0

Опции темы

Поменять местами последний ноль в линейной последовательности с первым элементом

Решение