PascalABC.NET
begin
var a := ArrGen(10, i -> i in [0, 2, 6] ? 2 * (i + 1) + 10 :
(i - 7) * 3);
Writeln('массив');
var m := a.Println.Where(p -> p.IsEven).Average;
Write('sr=', m)
end.
begin
var a := ArrGen(10, i -> (i + 1) mod 3 = 0 ? -i : Sqr(i + 2));
Writeln('массив');
var s := a.Println.Sum;
Writeln('sr=', s);
a.Transform(p -> p < 0 ? s : p);
Writeln('новый массив');
a.Print
end.
begin
var a := ArrGen(15, i -> i < 7 ? i * (i + 6.1) + 5.1 : i - 4.7);
Writeln('массив');
foreach var k in a do
Write(k:7:2);
Writeln;
var p := 1.0;
for var i := 2 to 4 do
p *= a[i];
Write('p= ', p:0:3)
end.
Индексы в массивах PascalABC.NET идут не от единицы, а от нуля, как во всех современнных языках программирования. Поэтому исходные формулы пришлось немного преобразовать.
Примеры вывода не показаны, поскольку они точно совпадают с заданными.
3
Объяснение:
На простом примере:
x = 5; y = 10
Если 5 > 10, то максимум = 5, иначе максимум = 10
5 больше 10? Нет, следовательно максимальное значение 10. Совпало.
x = 10; y = 5
Если 10 > 5, то максимум = 10, иначе максимум = 5
10 больше 5? Да, следовательно максимальное значение 10. Совпало.
Если разбирать 1 пример:
x = 5; y = 10
Если 5 > 10, то максимум = 5, иначе максимум = 5
5 больше 10? Нет, а максимум у нас 5... Не совпало.
Если разбирать 2 пример:
x = 10; y = 5
Если 10 > 5, то максимум = 5, иначе максимум = 10
10 больше 5? Да, а максимум у нас 5... Не совпало.
