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

Форум программистов: 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 ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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