1.дан массив из 16 целочисленных элементов. заполните его случайными целыми числами из интервала от - id803324720220206 от Yuliy5321 06.02.2022 16:22

Question

Информатика: 1.дан массив из 16 целочисленных элементов. заполните его случайными целыми числами из интервала от -15 до 25. 2.дан одномерный массив длиной 18 чисел. заполните его четными числами по порядку, начиная с -8. 3.дан одномерный массив длиной 18 чисел. заполните его нечетными числами по порядку, начиная с 7.

Yuliy5321 · Accepted Answer

// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.Rows.SelectMany(x->x);
Writeln('Отношение min/max равно ',s.Min/s.Max:0:4)
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 8
*** Исходный массив [5,8] ***
-38 -26 -68 -48 79 -61 -25 -97
26 -81 -67 -49 22 -15 45 -75
92 93 -59 -4 -21 91 -36 19
-65 -36 -18 -1 -12 8 -91 -29
-28 -33 -41 85 -94 -15 -33 69

Отношение min/max равно -1.0430

MOGZ ответил