Турбо Паскаль удаление элементов последовательности

rinat-shoker · 26.02.2016, 19:58

Задана последовательность А1,......А20), не содержащая одинаковых элементов.

1. Удалить элемент последовательности, наиболее близкий по
значению к максимальному в данной последовательности.
Под удалением элемента из массива понимать исключении этого
элемента путём смещения всех следующих за ним элементов влево
на 1 позицию и присвоение последнеиу элементу массива —0.

2. преобразованную последовательность, упорядочить по возрастанию.
Для отладки программы числа последовательности сформировать с помощью генератора случайных чисел

Евгений · 26.02.2016, 20:32

Код:

uses  Crt;
const n=20;
type  Tmass=array[1..n] of integer;
var   a:Tmass;
      i,max,mi,t,r:integer;
begin
      ClrScr;
       Writeln('Massiv A:');
        Writeln;
         Randomize;
          max:=-MaxInt;
           mi:=0;
       for i:=1 to n do
        begin
          a[i]:=Random(100);
          Write(a[i]:4);
          if a[i]>max then
           begin
             max:=a[i];
             mi:=i;
           end;
        end;
       Writeln; Writeln;
      Writeln('Max = ',max,' [ ',mi,' ]');
       Writeln;
      t:=0; r:=MaxInt;
       for i:=1 to n do
        if i<>mi then
         if (max-a[i]<r) then
          begin
            r:=max-a[i];
            t:=i;
          end;
      Writeln('Naibolee blizkiy = ',a[t],' [ ',t,' ]');
       Writeln;
      for i:=t to n-1 do
       a[i]:=a[i+1];
        a[n]:=0;
      Writeln('Noviy massiv:');
       Writeln;
        for i:=1 to n do
         Write(a[i]:4);
          Writeln;
           Writeln;
      for i:=1 to n-1 do
       for r:=1 to n-i do
        if a[r]>a[r+1] then
         begin
           t:=a[r];
           a[r]:=a[r+1];
           a[r+1]:=t;
         end;
      Writeln('Sortirovanniy massiv:');
       Writeln;
        for i:=1 to n do
         Write(a[i]:4);
          Writeln;
      ReadKey;
end.

26.02.2016, 19:58	#1 (permalink)
rinat-shoker Новичок Регистрация: 26.02.2016 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Турбо Паскаль удаление элементов последовательности Задана последовательность А1,......А20), не содержащая одинаковых элементов. 1. Удалить элемент последовательности, наиболее близкий по значению к максимальному в данной последовательности. Под удалением элемента из массива понимать исключении этого элемента путём смещения всех следующих за ним элементов влево на 1 позицию и присвоение последнеиу элементу массива —0. 2. преобразованную последовательность, упорядочить по возрастанию. Для отладки программы числа последовательности сформировать с помощью генератора случайных чисел

26.02.2016, 19:58
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Так же вы можете найти интересующую вас информацию в аналогичных топиках Задача в Турбо Паскаль Турбо паскаль

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070