Подсчитать количество столбцов массива, элементы которых упорядочены по убыванию. В Паскаль
Подсчитать количество столбцов массива, элементы которых упорядочены по убыванию. В Паскаль
Задать свой вопрос1 ответ
Regina Shkvyrja
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программка не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество колонок в массиве:');
Writeln('*** Начальный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var k:=0;
foreach var column in a.Cols do
if column.Zip(column.OrderByDescending(x-gt;x),(x,y)-gt;x=y).All(x-gt;x=True)
then k+=1;
Writeln('k=',k)
end.
Пример
Количество строк в массиве: 3
Количество колонок в массиве: 9
*** Исходный массив [3,9] ***
42 29 -18 -13 75 -55 73 -41 -34
-13 -25 62 -83 80 83 70 -75 91
-59 45 87 45 18 -87 62 9 27
------------------------------------
k=2
// Внимание! Если программка не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество колонок в массиве:');
Writeln('*** Начальный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var k:=0;
foreach var column in a.Cols do
if column.Zip(column.OrderByDescending(x-gt;x),(x,y)-gt;x=y).All(x-gt;x=True)
then k+=1;
Writeln('k=',k)
end.
Пример
Количество строк в массиве: 3
Количество колонок в массиве: 9
*** Исходный массив [3,9] ***
42 29 -18 -13 75 -55 73 -41 -34
-13 -25 62 -83 80 83 70 -75 91
-59 45 87 45 18 -87 62 9 27
------------------------------------
k=2
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
Облако тегов