Задан двухмерный массив A (матрица) вещественных чисел размерности 35. Получить из него новый массив V путем удаления из массива A строки и столбца, в которых содержится минимальный элемент. Написать программу в паскаль
? заменяет любой один символ * заменяет любое чколичество любых символов
Маске ?l*ck.*t? удовлетворяют имена файлов, вторая буква имени которых l, имя заканчивается на ck, а предпоследняя буква расширения t.
Из перечня имён выберите (отметьте галочкой) те, которые удовлетворяют маске ?l*ck.*t? а) click.txt — предпоследняя буква расширения x б) black.ppt — предпоследняя буква расширения p в) lock.sts — вторая буква имени o г) clock.tt 7 — предпоследний символ расширения пробел д) blink.uta — предпоследний символ имени n е) applock.stu — вторая буква имени p ж) blocker.htm — имя оканчивается на er ✔) elpack.ty и) blocker.html — имя оканчивается на er
Sub m1() Cells.Clear Dim n As Integer, i As Integer, s As Integer n = InputBox("n = ") Cells(1, 1).Value = "n = " + Str(n) ReDim a(1 To n) For i = 1 To n a(i) = InputBox("a(" + Str(i) + ")") Next i Cells(2, 1).Value = "Исходный массив" Range(Cells(3, 1), Cells(3, n)).Value = a s = 0 For i = 1 To n s = s + a(i) Next i Cells(4, 1).Value = "s = " + Str(s) Cells(5, 1).Value = "Полученный массив" For i = 1 To n a(i) = a(i) + s Next i Range(Cells(6, 1), Cells(6, n)).Value = a End Sub
uses School, NumLibABC;
begin
Println('PascalABC.NET', PascalABCVersion);
var a := new Matrix(MatrRandomReal(3, 5, -99, 99, 1));
a.Println(7,1);
Writeln;
var min := a.Value.ElementsWithIndices.MinBy(p -> p[0]);
a.DeleteRow(min[1]+1);
a.DeleteCol(min[2]+1);
var v := a.Value;
v.Println(7,1)
end.