Выполнить вставку в одномерный массив заданного числа перед максимальным элементом

@VladimiRez · Регистрация: 19.06.2012

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

Народ-помогите кто-чем может!Проволялся со сломанной ногой в больничке-пропустил массивы(часть).

До завтра сможете решить?Вот:
"Напишите программы(каждая отдельно):
-выполняющую вставку в одномерный массив заданного числа перед максимальным элементом"

Буду по гроб жизни должен!

@ermolay · 19.06.2012, 19:49

Pascal

const
  nmax=100;
var
  a: array[1..nmax] of integer;
  i,n,x,max,k: integer;
begin
  randomize;
  write('Введите размер массива n: ');
  
  {инициализация исходного массива}
  readln(n);
  writeln('Исходный массив: ');
  for i:=1 to n do
  begin
    a[i]:=random(199)-99;
    write(a[i],' ');
  end;
  writeln;
  
  
  writeln('Введите число x: ');
  readln(x);
  
  {нахождение максимума}
  max:=a[1]; k:=1;
  for i:=1 to n do
    if a[i]>max then 
    begin
      max:=a[i];
      k:=i;
    end;
  
  {вставляем число х перед максимумом}
  inc(n);
  for i:=n downto k do
    a[i]:=a[i-1];
  a[k]:=x;
  
  {вывод полученного массива}
  writeln('Полученный массив:');
    for i:=1 to n do write(a[i],' ');
  readln;
end.

@VladimiRez 0 / 0 / 0 Регистрация: 19.06.2012 Сообщений: 8
		1
	Выполнить вставку в одномерный массив заданного числа перед максимальным элементом 19.06.2012, 18:48. Показов 1097. Ответов 1 Метки нет (Все метки) Народ-помогите кто-чем может!Проволялся со сломанной ногой в больничке-пропустил массивы(часть). До завтра сможете решить?Вот: "Напишите программы(каждая отдельно): -выполняющую вставку в одномерный массив заданного числа перед максимальным элементом" Буду по гроб жизни должен! 0

	19.06.2012, 19:49

Выполнить вставку в одномерный массив заданного числа перед максимальным элементом

Решение