Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


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

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

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

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

Старый 26.02.2016, 19:58
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Так же вы можете найти интересующую вас информацию в аналогичных топиках

Задача в Турбо Паскаль
Турбо паскаль

Старый 26.02.2016, 20:32   #2 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,162
Сказал(а) спасибо: 9
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 9811
По умолчанию

Код:
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.
Евгений вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 00:27.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.