Помогите для каждого из пунктов нарисовать блок-схему исходя из написанной программы
1. Формирование и вывод массива.
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. |
Часовой пояс GMT +4, время: 13:59. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.