Завдання 2 Дан список t = [17, 8, 29, 5, 4, 3, 13] Скласти програму для знаходження та виводу на екран: - id2083082120230101 от xiumin90 01.01.2023 07:50

Question

Информатика: Завдання 2 Дан список t = [17, 8, 29, 5, 4, 3, 13] Скласти програму для знаходження та виводу на екран: 1) ste сума елементів списку t; 2) avt- середнє арифметичне списку t; 3) max el - максимальний елемент списку t; 4) nom mіn t- номер мінімального елементу списку t.

xiumin90 · Accepted Answer

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
var Z:=ArrRandom(ReadInteger('n='),1,99);
Writeln('Массив Z'); Z.Println;
Writeln('Массив X');
var X:=Z[1::2].Select(p->p/2).ToArray; Swap(X[0],X[X.Length-1]);
X.Println;
Writeln('Массив Y');
var Y:=Z[::2].Select(p->p/3).ToArray; Swap(Y[0],Y[Y.Length-1]);
Y.Println
end.

Пример
n= 8
Массив Z
74 17 35 3 33 84 48 39
Массив X
19.5 1.5 42 8.5
Массив Y
16 11.6666666666667 11 24.6666666666667

MOGZ ответил