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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.02.2014, 22:13   #1
_viktorija_
Новичок
Джуниор
 
Регистрация: 21.02.2014
Сообщений: 1
По умолчанию В каждом столбце первый элемент поменять с последним элементом.

Здравствуйте! Помогите решить задачу на двумерные массивы. Примерно она должна выглядеть так:
Код:
Uses Crt;
const n=10; m=7;
type mas2=array[1..n,1..m] of integer;
Procedure Vvod2 (var a:mas2);
var i:integer; j:integer;
Begin
   Randomize;
   For i:=1 to n do
   for j:=1 to m do
   a[i,j]:=Random(1000);
End;
Procedure Print2(a:mas2);
var i:integer; j:integer;
Begin
   for i:=1 to n do
   begin
   for j:=1 to n do write(a[i,j]:4);
   writeln;
End;
End;
Procedure Zamin(var a:mas2);
var z, min,j,i,k:integer;
Begin
   for j:=1 to n do 
    Begin
      min:=a[i,j]; k:=1;
      for i:=2 to n do
      if a[i,j]<min then
       begin min:=a[i,j]; k:=1 end;
       z:=a[i,j];
       a[i,j]:=a[k,j];
       a[k,j]:=z;
      end;
 End;
 Begin
   clrscr;
   Vvod2(a);
   Print2(a);
   writeln;
   zamin(a);
end.

Последний раз редактировалось Stilet; 21.02.2014 в 22:51.
_viktorija_ вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Преобразовать массив: в каждом столбце поменять местами максимальный и первый элементы AFI Паскаль, Turbo Pascal, PascalABC.NET 5 17.05.2013 05:40
В массиве из 15 вещественных чисел найти наибольший элемент и поменять его местами с последним элементом массива. 1309 Помощь студентам 4 17.05.2012 14:25
Матрица, каждой строке найти макс. и мин. элементы и поменять их с первым и последним элементом строки (Паскаль) тина222 Помощь студентам 0 02.11.2011 22:01
Массив 7х7 целого типа в каждом столбце поменять max элемент и элемент побочной диагонали Sheport Паскаль, Turbo Pascal, PascalABC.NET 1 20.06.2011 23:30
В каджом столбце массива А поменять местами первый отрицательный элемент с последним элементом столбца. Carmen Помощь студентам 1 31.05.2011 19:41