25.12.2012, 19:21 | #11 (permalink) |
Member
Регистрация: 29.09.2012
Сообщений: 72
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Код:
uses crt; var a: array[1..100] of byte; i,j,n : byte; b : boolean; begin clrscr; randomize; b:=true; a[1]:=20; write(a[1]:4); i:=2; repeat n:=random(3)+3; j:=1; while (j<n) and (i<101) do begin if b then a[i]:=a[i-1]+random(6)+1 else a[i]:=a[i-1]-random(6)-1; write(a[i]:4); inc(i); inc(j); end; b:=not b; until i>100; writeln; readln; end. |
25.12.2012, 19:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Давайте я вам помогу найти схожие с вашей темы Векторы Паскаль Векторы в Паскале Паскаль Паскаль Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|