IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> Подпрограммы
snopy
сообщение 30.11.2007 17:34
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 61
Пол: Мужской

Репутация: -  0  +


Помогите решить задачу. Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан масив целых чисел 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.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
О_Джей_Симпсон
сообщение 30.11.2007 19:25
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 57
Пол: Мужской
Реальное имя: Денис

Репутация: -  0  +


я могу сделать.
смотри личные сообщения.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 24.07.2025 17:15
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"