26.02.2016, 19:58 | #1 (permalink) |
Новичок
Регистрация: 26.02.2016
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Турбо Паскаль удаление элементов последовательности
1. Удалить элемент последовательности, наиболее близкий по значению к максимальному в данной последовательности. Под удалением элемента из массива понимать исключении этого элемента путём смещения всех следующих за ним элементов влево на 1 позицию и присвоение последнеиу элементу массива —0. 2. преобразованную последовательность, упорядочить по возрастанию. Для отладки программы числа последовательности сформировать с помощью генератора случайных чисел |
26.02.2016, 19:58 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Так же вы можете найти интересующую вас информацию в аналогичных топиках Задача в Турбо Паскаль Турбо паскаль |
26.02.2016, 20:32 | #2 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
Код:
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
|
|
|