27.12.2011, 18:18 | #1 (permalink) |
Member
Регистрация: 30.11.2011
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с программой на Паскале
|
27.12.2011, 18:18 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Займитесь прочтением похожих топиков Помогите с программой Помогите, пожалуйста, с программой на Паскале Помогите с программой на С Помогите пожалуйста с программой на паскале |
28.12.2011, 10:07 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const N=30; Type Ar=Array[1..N] of Byte; Var A,B:Ar; i,min:Byte; Function Not_Include(C:Ar;m:Byte):Boolean; var N_I:Boolean; j:Byte; begin N_I:=false; j:=0; Repeat Inc(j); If C[j]=m then N_I:=true; Until N_I or (j=N); Not_Include:=Not(N_I); end; Begin Randomize; For i:=1 to N do begin A[i]:=10+Random(N); B[i]:=Random(N); end; Writeln('First sequence:'); For i:=1 to N do write(A[i]:4); Writeln; Writeln; Writeln('Second sequence:'); For i:=1 to N do write(B[i]:4); Writeln; Writeln; Write('Minimal element: '); min:=2*N; For i:=1 to N do If (A[i]<min) and Not_Include(B,A[i]) then min:=A[i]; Writeln(min); Readln; End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|