→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Нужен алгоритм ! 
Автор Сообщение
Начинающий

Регистрация: 18.06.2010
Сообщения: 8
Специальность:

Репутация: 0 [ ? ]
Сообщение Нужен алгоритм !
Помогите! Очень нужен алгоритм к такой программе :
var
a: array[1..5, 1..4] of integer;
i, j, max, min, imax: integer;
jmax, imin,jmin, tmp: integer;

begin
for i := 1 to 5 do
for j := 1 to 4 do
read(a[i, j]);

for i := 1 to 5 do
begin
for j := 1 to 4 do
write(a[i, j]:4, ' ');
writeln;
end;

max := a[1, 1];
for i := 1 to 5 do
for j := 1 to 4 do
begin
if max < a[i, j] then
begin
max := a[i, j];
imax := i;
jmax := j
end;

min := a[1, 1];
if min > a[i, j] then
begin
min := a[i, j];
imin := i;
jmin := j
end;
end;

write('max = ', max);
writeln(' a=[', imax, ',', jmax, ']');
write('min = ', min);
writeln(' a=[', imin, ',', jmin, ']');

for j := 1 to 4 do
begin
tmp := a[imax, j];
a[imax, j] := a[imin, j];
a[imin, j] := tmp;
end;

for i := 1 to 5 do
begin
for j := 1 to 4 do
write(a[i, j]:4, ' ');
writeln;
end;
readln;
end.


26.10.2010 18:58
Профиль Отправить email
Эксперт
Аватара пользователя

Регистрация: 10.04.2010
Сообщения: 102
Языки:

Репутация: 3 [ ? ]
Сообщение Re: Нужен алгоритм !

_________________
Тот, кто хочет работать, ищет возможность,
а тот, кто не хочет, ищет причину.


01.11.2010 16:09
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Google [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»