После каждого числа n, в котором число десятков меньше числа единиц, вставьте n

@Aiwendil · Регистрация: 05.01.2015

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

С клавиатуры вводится одномерный массив целых чисел: сначала вводится количество

элементов в массиве (от 1 до 100), а потом вводятся собственно элементы массива. После

каждого числа n, в котором число десятков меньше числа единиц, вставьте n; после чего

выведите массив на экран. Программа должна работать по следующему алгоритму: ввод,

обработка, вывод.

@Puporev · 07.01.2015, 13:42

Pascal

uses crt;
const nmax=100;
var a:array[1..2*nmax] of integer;
    n,i,j,b,c:byte;
begin
clrscr;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
c:=n;
writeln('Введите элементы массива целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:4);
writeln;
i:=1;
while i<=n do
 begin
  b:=abs(a[i]);
  if b div 10 mod 10<b mod 10 then
   begin
    inc(n);
    if i=n-1 then a[n]:=c
    else
     begin
      for j:=n downto i+2 do
      a[j]:=a[j-1];
      a[i+1]:=c
     end;
    inc(i,2)
   end
  else inc(i);
 end;
writeln('Вставка числа ',c);
for i:=1 to n do
write(a[i]:4);
readln
end.

@Aiwendil 0 / 0 / 0 Регистрация: 05.01.2015 Сообщений: 10
		1
	После каждого числа n, в котором число десятков меньше числа единиц, вставьте n 07.01.2015, 13:01. Показов 1346. Ответов 1 Метки нет (Все метки) С клавиатуры вводится одномерный массив целых чисел: сначала вводится количество элементов в массиве (от 1 до 100), а потом вводятся собственно элементы массива. После каждого числа n, в котором число десятков меньше числа единиц, вставьте n; после чего выведите массив на экран. Программа должна работать по следующему алгоритму: ввод, обработка, вывод. 0

	07.01.2015, 13:42

Опции темы

После каждого числа n, в котором число десятков меньше числа единиц, вставьте n

Решение