<span>вот первые два, в файлах ниже!, четертое пока не знаю.</span>
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(17,42,65); a.Println;
var k:=a.Where(t->t=50).Count; // кол-во элементов =50 - задание 2
Writeln('Кол-во элементов, равных 50: ',k);
a.Transform(t->t=50?0:t); a.Println // замена и вывод - задание 1
end.
<u>Пример</u>
65 45 55 47 50 44 45 43 50 51 44 43 56 45 65 51 65
Кол-во элементов, равных 50: 2
65 45 55 47 0 44 45 43 0 51 44 43 56 45 65 51 65
(1 + 2): 3 = 1
1 * 2 + 3 - 4 =1
((1+2) : 3 + 4) : 5 =1
1 * 2 - 3 :(4 +5- 6) =1
1 * 2 + (3 + 4 +5) - (6 + 7) =1
((1 + 2): 3)* (4 + 5 + 6): ( 7+8) =1