|
|
Опции темы | Опции просмотра |
21.03.2016, 20:04 | #1 (permalink) |
Новичок
Регистрация: 26.02.2016
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите для каждого из пунктов нарисовать блок-схему исходя из написанной программы
2. Поиск элемента последовательности, наиболее близкий по значению к максимальному в данной последовательности. 3. Удаление требуемого элемента из массива. 4. Упорядочение элементов массива по возрастанию. 5. Вывод результата. 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. |
21.03.2016, 20:04 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Люди уже создавали что то подобное, так что можете почитать Помогите нарисовать блок-схему Помогите нарисовать блок-схему TASM Помогите нарисовать схему Помогите, пожалуйста, составить блок-схему алгоритма программы Помогите нарисовать блок схему |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|