решите в Паскаль!!! пожалуйстаДан одномерный массив а.Сформировать новый массив который

Решите в Паскаль!!! пожалуйста
Дан одномерный массив а.Сформировать новый массив который состоит только из тех частей массива в,которые превосходят собственный номер на 10.если таких частей нет,то выдать извещенье

Задать свой вопрос
1 ответ

program raf105;

const

 n = 10; //Размер массива

var

 a,b: array[1..n] of integer;

 i,c: integer;

begin

 writeln('Вводите ',n,' чисел по очереди');

 for i:=1 to n do

 begin

   write(i,'. ');

   readln(a[i]);

   if a[i]-10 = i

     then begin

       c:= c+1;

       b[c]:= a[i];

     end;

 end;

 if c gt; 0

   then begin

   write('Новый массив: ');

   for i:=1 to c do

     write(b[i],' ')

   end

   else writeln('Частей превосходящих свой индекс на 10 не найдено.');

end.

PascalABC 3.4.2

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт