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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.12.2009, 19:21   #1
joker3814
Новичок
Джуниор
 
Регистрация: 28.12.2009
Сообщений: 1
По умолчанию Задача в паскале с матрицами

Задача такая:
Поменять местами строки матреци А(m, n) в которой расположен max и min элементы матрици.

вот чтовышло уменя нотам оченьмного ошибок:
Код:
program 111209;
const n=3;
m=4;
useswincrt;
var A: array [1..n, 1..m] jf real;
n i : integer;
j max, i max:=real;
begin
write ('введите чило элементов строк');
readln (n);
writeln ('введите чило элементов столбцов');
readln (m);
for i:=1 to n do
for j:=1 to m do
begin
вот дальше я совсем не уверен
Код:
write ('введите A[',i,']=');
readln (A [i]);
end;
дальше точно ошибка
Код:
for i:=1 to n do
begin
max:= A[1,j] i max=1;
min:=A[1, i] j min=1;
for j:= 1 to m do
if A[ij]> max then
begin
max:= A[i j]
i max:=j
end
else
If A [i j] < min then
begin 
min:= A [i j]
i min = j
end;
writeln ('min=' max);
for j:= 1 to n do
begin
P:=a[ i max, j];
a [i min, j] :=a [i max j];
a [i max, j]:=P;
end;
for:1 to m do
begin:= 1 to n do
write('a<i,j,',);
end;
end.
joker3814 вне форума Ответить с цитированием
Старый 28.12.2009, 19:27   #2
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

Сделаю! Стучи ! Дешево!
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
IT-man вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с матрицами в паскале Andris Помощь студентам 7 29.05.2009 21:56
Помогите с матрицами в Паскале Veselyn Помощь студентам 4 07.02.2009 12:07