05.04.2020, 22:29 [+3 UTC]
в нашей команде: 4 337 чел. | участники онлайн: 4 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.83 (12.03.2020)
JS-v.1.35 | CSS-v.3.37

Общие новости:
28.03.2020, 20:29

Форум:
04.04.2020, 17:23

Последний вопрос:
05.04.2020, 20:05
Всего: 151935

Последний ответ:
05.04.2020, 12:00
Всего: 259929

Последняя рассылка:
05.04.2020, 20:46

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

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

Наша кнопка:

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

Отзывы о нас:
30.01.2010, 14:30 »
Миронычев Виталий
Оценка сама говорит за себя,хочу только поблагодарить эксперта за грамотный и качественный ответ [вопрос № 176348, ответ № 259069]
09.07.2010, 11:08 »
Викол Василий
Спасибо огромное за ответ!!!!!!!!!!! [вопрос № 179431, ответ № 262452]
20.09.2019, 14:40 »
dar777
Это самое лучшее решение! [вопрос № 196401, ответ № 278736]

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

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

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

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

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 116
Асмик Гаряка
Статус: Советник
Рейтинг: 81
Лысков Игорь Витальевич
Статус: Старший модератор
Рейтинг: 0

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

Консультация онлайн # 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.13784 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.83 от 12.03.2020
Версия JS: 1.35 | Версия CSS: 3.37