Написать программу на Паскале Переписать первые элементы каждой строки матрицы A (n×m), большие С, в массив В. Если в строке нет элемента, большего С, то записать ноль в массив В.
''' Вводятся четыре числа: xa, ya: координаты ферзя xb, yb: координаты другой фигуры
Координаты - целые числа в интервале от 1 до 8.
Вывод - булево значение: сможет ли ферзь побить фигуру за 1 ход. ''' def hits(xa, ya, xb, yb) -> bool: ''' Проверка аргументов. ''' args = (xa, ya, xb, yb) if any([not 1 <= z <= 8 for z in args]): raise ValueError("Неверные координаты!")
''' На одной прямой. ''' if xa == xb or ya == yb: return True
''' Северо-западная диагональ. ''' x_nw, y_nw = xa, ya while x_nw > 1 and y_nw > 1: x_nw -= 1 y_nw -= 1 if x_nw == xb and y_nw == yb: return True
''' Юго-восточная диагональ. ''' x_se, y_se = xa, ya while x_se < 8 and y_se < 8: x_se += 1 y_se += 1 if x_se == xb and y_se == yb: return True
''' Юго-западная диагональ. ''' x_sw, y_sw = xa, ya while x_sw > 1 and y_se < 8: x_sw -= 1 y_sw += 1 if x_sw == xb and y_sw == yb: return True
''' Северо-восточная диагональ. ''' x_ne, y_ne = xa, ya while x_ne < 8 and y_se > 1: x_ne += 1 y_ne -= 1 if x_ne == xb and y_ne == yb: return True
return False # если не бьет
inp = [int(x) for x in input().split()] if hits(*inp): print('YES') else: print('NO')
Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write('Введите размер матрицы');Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.
##
var (n, m) := ReadInteger2('Число строк и столбцов через пробел:');
var a := MatrRandom(n, m, -99, 99);
a.Print(4);
Writeln;
var c := ReadInteger('Значение С:');
var b := a.Rows.Select(r -> r.Where(t -> t > c).DefaultIfEmpty.First).ToArray;
b.Print