Помощь - Поиск - Пользователи - Календарь
Полная версия: Подпрограммы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи > Задачи на заказ
snopy
Помогите решить задачу. Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан масив целых чисел A[M,N], где M,N<=10. Удалить все столбцы, в которых нет нулевого элемента. Так же прилогаю неработающий код
program z11111;
const k=10;
var a:array[1..10,1..10] of integer;
m,n,i,j,p:integer;
procedure InputArray;
begin
write('m=');readln(m);
if m>10 then
begin
writeln('m must be <=10');readln;
n:=0;m:=0;
exit;
end;
write('n=');readln(n);
if n>10 then
begin
writeln('n must be <=10');readln;
n:=0;m:=0;
exit;
end;
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;readln;
end;
begin
InputArray;
end.
О_Джей_Симпсон
я могу сделать.
смотри личные сообщения.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.