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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.05.2011, 19:49   #1
ScareCroW12
 
Регистрация: 01.05.2011
Сообщений: 8
По умолчанию Матрица

Из элементов столбца с номером "к", массива А (mxn), вычесть минимальный элемент этого столбца.

Заранее спасибо!)
ScareCroW12 вне форума Ответить с цитированием
Старый 01.05.2011, 22:35   #2
Lapo4ka
Подтвердите свой е-майл
 
Регистрация: 30.04.2011
Сообщений: 44
По умолчанию

Код:
program abc;
type mass =array[1..100, 1..100] of integer;
var
a:mass;
i, j, n, m, k:byte;
min:integer;

begin
writeln('vvedite razmernost matricu: ');
write('m = ');
readln(m);
write('n = ');
readln(n);
writeln('vvedite matricu');
for i:=1 to m do
for j:=1 to n do
begin
write('a[', i, ']', '[', j,'] = ');
readln(a[i,j]);
end;
write('vvedite nomer stolbca k = ');
readln(k);
min:=a[1,k];
for i:=2 to m do
if (a[i,k]<min) then min:=a[i,k];
for i:=1 to m do
a[i,k]:=a[i,k]-min;
for i:=1 to m do
begin
for j:=1 to n-1 do
begin
write(a[i,j]);
write('       ');
end;
writeln( a[i,n]);
end;

end.
Lapo4ka вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Непонятки с DirectX (матрица поворота, камера, матрица проекции) ROD Общие вопросы C/C++ 2 17.09.2010 17:00
матрица Gerberka Помощь студентам 2 27.05.2010 19:30
матрица А[10,10]. Оленьк@68 Помощь студентам 2 29.03.2010 21:21
матрица alerzo Помощь студентам 3 17.03.2010 12:27
TurboPascal: граф, матрица смежности и матрица инцидентности. ulala Помощь студентам 0 02.12.2009 10:11