На плоскости задано N точек с целочисленными координатами (N≤100). Порядок на точках плоскости определим так: (x, y) ( (u, v), если x < u, либо x = u и y ( v. Написать программу перечисления точек заданного множества точек на плоскости в соответствии с этим порядком. Формат входных данных
Первая строка входного файла содержит число N — количество точек задаваемого множества. Следующие N строк содержат координаты точек. В каждой строке пара чисел, разделяемых пробелами, задающими x и y координаты точек.
Формат выходных данных
В каждой строке — два числа, разделенных пробелом, задающих x и y координаты точек, расположенных в требуемом порядке.
там ещё примеры входных и выходных файлов:
Task2.in - 5
4 8
4 0
-1 -8
-6 -6
-3 9
Task2.out - -6 -6
-3 -9
-1 -8
4 0
4 8

#include <stdafx.h> #include <stdio.h> #include <locale.h>     int main() {     setlocale(LC_ALL,"RUS");     char str[] = "манрра, фр а алвл в во вовлл.";     int s = 0, i = 0, n = 0, u = 0;     int j;     for(j = 0; str[j]; j++){         if(str[j] == 'е')             s++;         if(str[j] == 'е')             i++;                     n++;         if(str[j] == 'е')             u++;                     break;     }     if(s == 1 && i == 1 && n == 1 && u == 1 )         printf("\n OK");     else printf("\n FAIL"); return 0; }

честно, я не знаю, вот оригинал, если нужно

#include <stdafx.h> #include <stdio.h> #include <locale.h>     int main() {     setlocale(LC_ALL,"RUS");     char str[] = "манрра, фр а алвл в во вовлл.";     int s = 0, i = 0, n = 0, u = 0;     int j;     for(j = 0; str[j]; j++){         if(str[j] == 'ф')             s++;         if(str[j] == 'а')             i++;         if(str[j] == 'й')             n++;         if(str[j] == 'л')             u++;         if(str[j] == '.')             break;     }     if(s == 1 && i == 1 && n == 1 && u == 1 )         printf("\n OK");     else printf("\n FAIL"); return 0; }

Var
    a: array [,] of integer;

begin
    var n := ReadlnInteger('n = ');
    var m := ReadlnInteger('m = ');
    var rand := ReadlnInteger('Для ручного ввода нажмите 0');
    
    if rand = 0 then begin
        a := new integer[m, n];
        for var i := 0 to m-1 do
            for var j := 0 to n-1 do
                a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
    end
    else a := MatrixRandom(m, n, 1, 100);
    Println(a);
    
    var b := ArrGen(n, x -> 1);
    for var i := 0 to m-1 do
        for var j := 0 to n-1 do
            if j mod 2 = 0 then
                b[j] := b[j] * a[i, j];
    
    b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.