06.12.2012, 19:33 | #1 (permalink) |
Новичок
Регистрация: 03.12.2012
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль
|
06.12.2012, 19:33 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Посоветую уделить немного времени прочтению схожих постов Паскаль АBC Паскаль Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Паскаль Паскаль АВС |
06.12.2012, 21:13 | #2 (permalink) | |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
Цитата:
Код:
Uses CRT; Const MaxX = 10; MaxY = 10; Var Mass : array [1..MaxX, 1..MaxY] of integer; K,I,J : integer; CooX, CooY : byte; Sum : integer; Max,Buf,MaxYV : integer; Begin ClrScr; TextColor(LightMagenta); Randomize; For j := 1 to MaxY do Begin For i := 1 to MaxX do Begin Mass[i,j]:=Random(100)-50; End; End; For j := 1 to MaxY do Begin For i := 1 to MaxX do Begin Write(Mass[i,j]:3); CooX:=1; CooY:=1; Max:=-5000; MaxYV:=MaxY; End; WriteLn; End; For j:=1 to MaxY do begin For i:=1 to MaxX do begin If Mass[i,j]>=Max then begin Max:=Mass[i,j]; CooX:=i;CooY:=j; end; end; End; For j:=1 to MaxY do begin For i:=1 to MaxX do begin If (((i>CooX) and (j=CooY)) or (j>CooY)) then begin Sum:=Sum+Mass[i,j]; end; end; End; Write('Vvedi K: '); ReadLn(K); If Sum>K then begin For j:=CooY to MaxY-1 do begin For i:=1 to MaxX do begin Mass[i,j]:=Mass[i,j+1]; end; End; For i:=1 to MaxX do Mass[i,MaxY]:=0; MaxYV:=MaxY-1; end; WriteLn; For j:= 1 to MaxYV do begin For i:= 1 to MaxX do begin Write(Mass[i,j]:4); end; WriteLn; end; ReadKey; ClrScr; End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|