Даны 7 одномерных массивов a,b,c,d,e,f,g на 15, 13, 8, 11, 14, 10, 9 элементов соответственно. Вывести имена массивов в порядке возрастания их минимальных элементов.Заполнение массивов,поиск минимального элемента оформить в виде подпрограмм.Для решения воспользоваться двумя вспомогательными массивами.
219
ОТВЕТЫ
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
function CreateArray(length: integer): array of integer;
begin
var a := new integer[length];
for var i := 0 to length - 1 do
a[i] := Random(0, 100);
// Println(a);
Result := a;
end;
begin
var arrays := new List<(char, array of integer)>();
arrays.Add(('a', CreateArray(15)));
arrays.Add(('b', CreateArray(13)));
arrays.Add(('c', CreateArray(08)));
arrays.Add(('d', CreateArray(11)));
arrays.Add(('e', CreateArray(14)));
arrays.Add(('f', CreateArray(10)));
arrays.Add(('g', CreateArray(09)));
foreach var a in arrays.OrderBy(a -> a.Item2.Min()) do
begin
Println(a.Item1, a.Item2.Min());
end;
end.
//Если программа не запускается, то обновите версию
function CreateArray(length: integer): array of integer;
begin
var a := new integer[length];
for var i := 0 to length - 1 do
a[i] := Random(0, 100);
// Println(a);
Result := a;
end;
begin
var arrays := new List<(char, array of integer)>();
arrays.Add(('a', CreateArray(15)));
arrays.Add(('b', CreateArray(13)));
arrays.Add(('c', CreateArray(08)));
arrays.Add(('d', CreateArray(11)));
arrays.Add(('e', CreateArray(14)));
arrays.Add(('f', CreateArray(10)));
arrays.Add(('g', CreateArray(09)));
foreach var a in arrays.OrderBy(a -> a.Item2.Min()) do
begin
Println(a.Item1, a.Item2.Min());
end;
end.
16
Отв. дан
Sharin
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Математика
Adoralsa
Нужна помощь по программированию. Желательно, чтобы в Бейсике. Мне ...
2018-09-25 00:00:00
Павел
растровые графический файл содержит черно-белое изображение (без градаций серого) ...
2018-09-25 00:00:00
Delakus
В массиве (0..12) найти номер элемента, наименее отличающегося от ...
2018-09-25 00:00:00
Anararius