Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.01.2010, 09:45   #11
Ruslan57
 
Регистрация: 29.12.2009
Сообщений: 9
По умолчанию

Цитата:
Сообщение от ОДИНОЧЕСТВО В СЕТИ Посмотреть сообщение
Ну и где вы определяете номер строки и столбца где находится max ?
вот именно с этим у меня проблема
Ruslan57 вне форума Ответить с цитированием
Старый 05.01.2010, 09:50   #12
ОДИНОЧЕСТВО В СЕТИ
Любопытная Вредина
Участник клуба
 
Аватар для ОДИНОЧЕСТВО В СЕТИ
 
Регистрация: 19.06.2009
Сообщений: 1,285
По умолчанию

Код:
Program Max;
type  mas=array[1..50,1..50] Of  Integer;
var   a:mas;
  max,min,i,j,n,im,jm: Integer;
procedure opred(a:mas; n:integer; var i1,j1, max:integer;);
var i,j:integer;
begin
max:=a[1,1];
i1:=1;j1:=1;
for i:=1 to n do
For j:=1 To n Do

begin
if max<a[i,j] then begin
max:=a[i,j];
i1:=i;
j1:=j;

end;
end;

begin
writeln('введите кол-во элементов матрици');
readln(n);
for i:=1 to n do
For j:=1 To n Do
begin
write('x',i,j,'=');
readln(a[i,j]);
end;
opred(a,n,im,jm,max);
writeln('максимальный элемент=', max 'в ',im,' строке и в ',jm,' столбце');

End.
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
ОДИНОЧЕСТВО В СЕТИ вне форума Ответить с цитированием
Старый 05.01.2010, 09:57   #13
Ruslan57
 
Регистрация: 29.12.2009
Сообщений: 9
По умолчанию

а как удалить строку и столбец эти?
Ruslan57 вне форума Ответить с цитированием
Старый 05.01.2010, 10:14   #14
ОДИНОЧЕСТВО В СЕТИ
Любопытная Вредина
Участник клуба
 
Аватар для ОДИНОЧЕСТВО В СЕТИ
 
Регистрация: 19.06.2009
Сообщений: 1,285
По умолчанию

Цитата:
а как удалить строку и столбец эти?
Например сместить строки, идущие после im, вверх, а столбцы, идущие после jm, влево и размер матрицы убавить [(n-1)*(n-1)];
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
ОДИНОЧЕСТВО В СЕТИ вне форума Ответить с цитированием
Старый 05.01.2010, 10:50   #15
Ruslan57
 
Регистрация: 29.12.2009
Сообщений: 9
По умолчанию

Цитата:
Сообщение от ОДИНОЧЕСТВО В СЕТИ Посмотреть сообщение
Например сместить строки, идущие после im, вверх, а столбцы, идущие после jm, влево и размер матрицы убавить [(n-1)*(n-1)];
ок. спасибо
Ruslan57 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Процедуры Юля787 Помощь студентам 4 13.12.2009 15:06
Процедуры Sergeo_89 Паскаль, Turbo Pascal, PascalABC.NET 2 28.01.2009 19:05
Запуск процедуры из процедуры с дополнением 1sal1 Общие вопросы Delphi 3 06.10.2008 21:54