Введите массив из 10 целых чисел и напишите программу: удаление элемента с заданным индексом, удаляемый элемент заменяет

@NoodV · Регистрация: 29.10.2019

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

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

@ValentinNemo · 29.10.2019, 09:31

Pascal

program Project1;
var
  a: array[1..10] of integer; // Переменная для хранения массива.
  n: integer; //   Переменная для хранения количества элементов массива.
  i: integer; // Вспомогательная переменная для организации цикла.
  inddelete: integer; // Переменная для хранения индекса удаляемого элемента.
 
begin
  for i:= 1 to 10 do     // Ввод значений элементов вручную.
   begin
     write('Введите значение элемента ',i,': ');
     Readln(a[i]);
   end;
  writeln('Исходный массив:');
  for i:= 1 to 10 do      // Вывод массива в консоль.
    begin
      write(a[i]:4);
      if i mod 10 = 0 then
        writeln;
    end;
  writeln;
  write('Введите индекс удаляемого элемента: ');
  Readln(inddelete);
  for i:= inddelete to 10-1 do  // Сдвиг влево элементов массива
    a[i]:= a[i+1];
  writeln('Измененный массив:');
  for i:= 1 to 10 do      // Вывод массива в консоль.
    begin
      write(a[i]:4);
      if i mod 10 = 0 then
        writeln;
    end;
Readln;
end.

@NoodV 0 / 0 / 0 Регистрация: 29.10.2019 Сообщений: 1
		1
	Введите массив из 10 целых чисел и напишите программу: удаление элемента с заданным индексом, удаляемый элемент заменяет 29.10.2019, 07:20. Показов 5450. Ответов 1 Метки 10, влево, индекс, массив, элемент (Все метки) Введите массив из 10 целых чисел и напишите программу: удаление элемента с заданным индексом, удаляемый элемент заменяется стоящим справа, а все последующие так же сдвигается влево, последний элемент не удаляется, а дублируется. 0

	29.10.2019, 09:31

Опции темы