Двумерный массив
Дан двумерный массив "А". Пользователь вводит число. Если это число больше первой цифры из столбца, то этот столбец удаляется..
С вводом и выводом все нормально) Объясните пожалуйста как удалить сам столбец? |
кстати на Pascal..
|
Цитата:
|
Аеее)) Спасибо большое :) Вот собственно сама программа)
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. |
Часовой пояс GMT +4, время: 02:00. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.