Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Составить линейную программу Для данной области составить линейную программу, которая печатает true, если точка с координатами (x,y) принадлежит закрашенной области, и false – в противном случае. https://www.cyberforum.ru/ pascal/ thread188780.html	Составить функцию для решения системы из двух уравнений Pascal Пользователь вводит четыре вещественных числа: a,b,c,d. Составить функцию для решения системы из двух уравнений: ax+by=c и x–y=d, которая получает введенные числа в качестве параметров. Найденное...
Pascal Синтаксис оператора разветления задание на оператор разветления не шарб вобще как сделать а сдать нада уже :bye: 6^%^^^^^^^^^^^^^^^^^^^^^^^^^^^^ https://www.cyberforum.ru/ pascal/ thread188752.html	Pascal Определить в заданном массиве второй по величине элемент https://www.cyberforum.ru/ pascal/ thread188751.html Помогите, пожалуйста, написать алгоритм и программу в Паскаль, очень надо.... Определить в заданном массиве А(N) второй по величине элемент
Pascal Задние на оператор разветления помогите с пакалем как оператор разветления	Pascal Вывести номера тех чисел в наборе, которые больше своего правого соседа, и количество таких чисел https://www.cyberforum.ru/ pascal/ thread188745.html Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые больше своего правого соседа, и количество K таких чисел.
Pascal Совершенные числа помогите написать в паскале функция возвращает true, если натуральное n равно сумме своих делителей и false в противном случае https://www.cyberforum.ru/ pascal/ thread188744.html	Pascal В последовательности целых положительных чисел опреде- лить максимальное четное число и его порядковый номер. Ребят, у меня есть наброски, но я не знаю точно , подскажите кто что знает program/// var i, s, n, a, c, d:integer; begin writeln('vvedite kol-vo chisel"); readln(n); while i<=n do begin...
Pascal Коэффициент сверхсжимаемости газа (разветвляющиеся) Друзья, здравствуйте еще раз. Не могли бы вы помочь с этой задачей? http://s016.***********/i337/1011/4a/2207fc441a9a.jpg Заранее благодарен за посильную помощь. Добавлено через 1 час 54... https://www.cyberforum.ru/ pascal/ thread188732.html	Pascal Составить программу, которая находит слова, имеющие удвоение букв Помогите решыть задачу.Дано строку. Составить программу, которая находит слова, имеющие удвоение букв. Решить задачу с помощью процедур или функций.Зарание спасибо Добавлено через 1 час 3 минуты... https://www.cyberforum.ru/ pascal/ thread188728.html
Определить, принадлежит ли заданная точка плоской фигуре Pascal Определить, принадлежит ли заданная точка (x;y) плоской фигуре, являющийся кольцом с центром в начале координат с внутренним радиусом r1 и внутренним r2	Pascal Графика. Ребята,огромная просьба. Помогите с задачей. Все никак сделать не могу ;( Согласно варианту задания изобразить на экране ЭВМ двумерную область, ограниченную графиками математических функций,... https://www.cyberforum.ru/ pascal/ thread188726.html

pryda

Неадекват и грубиян

310 / 297 / 301

Регистрация: 22.02.2010

Сообщений: 645

10.11.2010, 00:21

Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор - Pascal - Ответ 1098130

10.11.2010, 00:21. Показов 1359. Ответов 2

Метки (Все метки)

Сообщение было отмечено AlexGrome как решение

Решение

Pascal

uses crt;
const n=5;
      m=5;
var a:array[1..n,1..m]of integer;
    i,j,k,t,d:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
    for j:=1 to m do
    begin
        a[i,j]:=random(11)-5;
        write(a[i,j]:4);
    end;
    writeln;
end;
writeln;
for j:=1 to m do
if odd(j) then
for i:=1 to n-1 do
    begin
        k:=i;
        for d:=i+1 to n do
        if a[k,j]>a[d,j] then k:=d;
        t:=a[i,j];
        a[i,j]:=a[k,j];
        a[k,j]:=t;
    end;
writeln('Результат:');
for i:=1 to n do
begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
end;
readln;
end.

Вернуться к обсуждению:
Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

10.11.2010, 00:21

Готовые ответы и решения:

Отсортировать нечетные столбцы массива по возрастанию. Сортировка разделением
Отсортировать нечетные столбцы массива по возрастанию. Сортировка разделением. ! ребята помогите...

Отсортировать нечетные столбцы массива по возрастанию. Сортировка разделением
10. Отсортировать нечетные столбцы массива по возрастанию. Сортировка разделением. вот примерный...

Отсортировать нечетные столбцы массива по возрастанию
3. Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор.

Отсортировать нечетные столбцы массива по возрастанию
Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор.

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

10.11.2010, 00:21

Помогаю со студенческими работами здесь

Отсортировать нечетные столбцы массива по возрастанию
Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор. Добавлено через...

Отсортировать прямым выбором нечетные столбцы массива по возрастанию
Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор.

Отсортировать нечетные столбцы двумерного массива по возрастанию
Отсортировать нечетные столбцы двумерного массива по возрастанию.

Двумерные массивы. Отсортировать нечетные столбцы массива по возрастанию
Отсортировать нечетные столбцы массива по возрастанию

Наверх