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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.09.2013, 12:09   #1
Despot777
Пользователь
 
Регистрация: 14.09.2013
Сообщений: 22
По умолчанию Программа Паскаль

Здравствуйте! Помогите с программой, прога должна сортировать массив за обменом. Пишет ошибку "Массив имеет другое количество размерностей".

Код:
program abc;
uses crt;
var a : array [1..10, 1..10] of integer;
i, j, x, n, m : integer;
begin
clrscr;
write(Кол-во строк: ); readln(n);
write(Кол-во столбов: ); readln(m);
write(Введите массив: );
for i:= 1 to n do
for j:= 1 to m do
readln(a[i,j]);
writeln(Исходный масив: );
for i:=1 to n do begin
  for j:=1 to m do Write(a[i,j]:4,' ');
  
  for i:=1 to n-1 do
    for j:=i+1 to m do
      if a[i] > a[j] then begin
        t := a[i];
        a[i] := a[j];
        a[j] := t;
      end;
 
  {Сортировка по обмену}
  WriteLn(Отсортированный массив:);
  for i:=1 to n do
    Write(a[i]:5:3,'  ');
  WriteLn;
end;
end.


________
1) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)

2) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.

Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 15.09.2013 в 12:20.
Despot777 вне форума Ответить с цитированием
Старый 15.09.2013, 12:22   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

у Вас массив ДВУХМЕРНЫЙ (он же матрица).
чтобы указать элемент массива нужно ДВА индекса (номер строки и номер столбца)
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль ABC. Программа на языке Паскаль. Helen1 Паскаль, Turbo Pascal, PascalABC.NET 6 13.01.2018 21:46
Паскаль-программа. Rume Помощь студентам 1 08.12.2011 00:26
Программа, паскаль Ri4ard_Zlo Помощь студентам 3 05.12.2011 22:24
Программа в паскаль! Jore De-Fora Помощь студентам 3 04.03.2011 10:16
Программа на Паскаль nikepol Помощь студентам 1 16.11.2010 19:03