12.11.2019, 21:23 [+3 UTC]
в нашей команде: 3 963 чел. | участники онлайн: 9 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.77 (31.05.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
04.11.2019, 16:30

Последний вопрос:
12.11.2019, 20:52
Всего: 150927

Последний ответ:
12.11.2019, 20:12
Всего: 259389

Последняя рассылка:
12.11.2019, 13:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
17.12.2009, 16:52 »
Николай // Programmator
Выбрал ON, все работает. Спасибо Вам! [вопрос № 175355, ответ № 257846]
16.12.2010, 23:56 »
Марина
Спасибо Вам огромное! [вопрос № 181285, ответ № 264799]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

zdwork
Статус: 6-й класс
Рейтинг: 788
Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 454
puporev
Статус: Профессионал
Рейтинг: 293

Перейти к консультации №:
 

Консультация онлайн # 196804
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: rail (Посетитель)
Отправлена: 25.10.2019, 13:06
Поступило ответов: 2

Здравствуйте! Прошу помощи в следующем вопросе:

Составьте программу упорядочения по возрастанию элементов каждой строки двумерного массива C[1.5, 1..6]. Массив заполнен случайными целыми числами от -20 до 20
Pascal

Приложение:

Состояние: Консультация закрыта

Ответ # 278990 от puporev (Профессионал)

Здравствуйте, rail!

Код (Pascal) :: выделить код
const m=5;
      n=6;
var c:array[1..m,1..n] of integer;
    i,j,k,x:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    c[i,j]:=-20+random(41);
    write(c[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to m do
for j:=1 to n-1 do
for k:=j+1 to n do
if c[i,j]>c[i,k] then
 begin
  x:=c[i,j];
  c[i,j]:=c[i,k];
  c[i,k]:=x;
 end;
writeln('Массив с отсортированными строками');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(c[i,j]:4);
  writeln;
 end;
end.


Консультировал: puporev (Профессионал)
Дата отправки: 25.10.2019, 13:17

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Здравствуйте, rail!

Смотрите приложение:

Код (Pascal) :: выделить код
const
  n=20;
var
  a:array[1..5,1..6]of integer;
  b,c,d,e:integer;
begin
  d:=0;
  for b:=1 to 5 do
    begin
      for c:=1 to 6 do
        begin
          a[b,c]:=random(2*n)-n;
          write(a[b,c]:4);
        end;
      writeln;
    end;
  for b:=1 to 5 do
    for c:=1 to 5 do
      for d:=c+1 to 6 do
        if a[b,c]>a[b,d]then
          begin
            e:=a[b,c];
            a[b,c]:=a[b,d];
            a[b,d]:=e;
          end;
  writeln('result:');
  for b:=1 to 5 do
    begin
      for c:=1 to 6 do
        write(a[b,c]:4);
      writeln;
    end;
end.

Удачи!


Консультировал: Зенченко Константин Николаевич (Старший модератор)
Дата отправки: 25.10.2019, 13:35

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.45185 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.77 от 31.05.2019
Версия JS: 1.34 | Версия CSS: 3.35