VPF::[Pascal]Двумерные массивы - Форум программистов

Glorya

Дата 4.5.2008, 12:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 4.5.2008

Репутация: нет
Всего: нет

Помогите пожалуйста решить задачу по двумерным массивам:
вычислить произведение элементов для каждого столбца; поменять местами столбцы с максимальным и минимальным значением

THandle

Дата 4.5.2008, 13:32 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Цитата(Glorya @ 4.5.2008, 13:49

)

поменять местами столбцы с максимальным и минимальным значением

Это значения полученные вот тут:

Цитата(Glorya @ 4.5.2008, 13:49

)

вычислить произведение элементов для каждого столбца;

?

Тогда лови:

Код


program Project1;

const
  MAX = 5;

var
  a : array [1..MAX, 1..MAX] of integer;
  um : array [1..MAX] of integer;
  maxe, mine, tmp : integer;
  i, j : integer;

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

  // заполнили массив случайными числами

  for i := 1 to MAX do
    begin
      um[i] := a[i, 1];
      for j := 2 to MAX do
        um[i] := um[i] * a[i, j];
    end;


  // считаем произведение

  maxe := 1;
  mine := 1;
  for i := 2 to MAX do
    if um[i] > um[maxe] then
      maxe := i
    else if um[i] < um[mine] then
      mine := i;

  //Считаем максимальное и минимальное значение

  if maxe <> mine then
    for i := 1 to MAX do
      begin
        tmp := a[i, mine];
        a[i, mine] := a[i, maxe];
        a[i, maxe] := tmp;
      end;

  // меняем местами столбцы

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

 readln;
end.

Вариант не оптимальный. Писал тут.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »