Составить программу подсчета количества встречаемых в тексте букв «ма».

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... Не совпало.

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 идут не от единицы, а от нуля, как во всех современнных языках программирования. Поэтому исходные формулы пришлось немного преобразовать.

Примеры вывода не показаны, поскольку они точно совпадают с заданными.