21.05.2012, 15:18 | #1 (permalink) |
Member
Регистрация: 12.04.2012
Сообщений: 28
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Двумерный массив
С вводом и выводом все нормально) Объясните пожалуйста как удалить сам столбец? |
21.05.2012, 15:18 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Советую вам обратить внимание на похожие обсуждения Одномерный и двумерный массив В Паскале двумерный массив Двумерный массив Двумерный массив. Задача |
22.05.2012, 13:16 | #4 (permalink) |
Member
Регистрация: 12.04.2012
Сообщений: 28
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Аеее)) Спасибо большое Вот собственно сама программа)
Program pr1; Uses CRT; Const N=5; Const M=5; var A:array[1..N,1..M] of integer; s,i,j,k,p,t,z:integer; Begin s:=M; ClrScr; For i:=1 to N do For j:=1 to M do A[i,j]:=random(20); For i:=1 to N do begin For j:=1 to M do write(A[i,j]:3); Writeln; End; Writeln('vvedite chislo'); Readln(z); j:=1; While j<=S do If A[1,j]>z then begin For t:=1 to N do For p:=j to S-1 do A[t,p]:=A[t,p+1]; S:=S-1; end else j:=j+1; If k=s then write('vse ctolbci ydaleni') else writeln; For i:=1 to N do begin For j:=1 to S do write(A[i,j]:3); Writeln; end; Readln; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|