Chrono | Дата: Четверг, 16.06.2011, 15:30 | Сообщение # 1 |
Группа: Гости
| Здравствуйте, прошу вашей помощи, завтра экзамен, и к нему нужна блок схема по программному коду Pascal, программа по массивам. Очень надеюсь на вас, заранее огромное спасибо
Код Pascal:
Program massive; Uses crt; Const n=10; type mas=array[1..N] of integer; var a:mas; sym,max,nmax:integer; procedure vvod_massiv(var b:mas); var i: byte; begin for i:=1 to n do b[i]:=random(18) -7; end; procedure vivod_massiv(b:mas); var i:byte; begin for i:=1 to n do write(b[i]:4); end; function symma(b:mas):integer; var i:byte; s:integer; begin s:=0; for i:=1 to n do s:=s+b[i]; symma:=s; end; procedure maximum(B:mas; var m,nomm:integer); var i:integer; begin m:= b[1];nomm:=1; for i:=2 to N do if m< b[i] then begin m:=b[i]; nomm:=i; end; end; procedure perest(nom1,nmax:byte;var B:Mas); var t:integer; begin t:=b[nom1]; b[nom1]:=b[nmax]; b[nmax]:=t; end; begin clrscr; randomize; vvod_massiv(a); vivod_massiv (a); writeln; maximum(a,max,nmax) ; write('max=',max,'nmax=',nmax); writeln; perest(1,nmax,a); vivod_massiv (a); end.
|
|
| |
diamFC | Дата: Четверг, 16.06.2011, 20:44 | Сообщение # 2 |
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| С радостью вам бы помог, но есть правила оформления, которые нужно читать. Там всего 3 пункта.
|
|
| |