1. в массиве из 17 элементов, заполненном случайными целыми двузначными числами, заменить элементы, равные 50, нулями. сколько произведено замен? 2. в массиве из 17 элементов, заполненном случайными целыми двузначными числами, подсчитать количество элементов, равных 50. pascal

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! 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. пример 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) var   arr: array[1..17] of smallint;   k, i: smallint; begin   randomize();   k : = 0;   write('массив до замены:       ');   for i : = 1 to 17 do   begin       arr[i] : = random(10, 99);       write(arr[i], ' ');   end;   writeln();   write('массив после замены: ');   for i : = 1 to 17 do   begin       if arr[i] = 50 then begin           arr[i] : = 0;           k : = k + 1;           write(' ');   //эта строка только для оформления вывода, она необязательна       end;       write(arr[i], ' ');   end;   writeln();   writeln('кол-во замененных элементов: ', k); end. 2) var   arr: array[1..17] of smallint;   k, i: smallint; begin   randomize();   k : = 0;   write('массив до замены: ');   for i : = 1 to 17 do   begin       arr[i] : = random(10, 99);       write(arr[i], ' ');       if arr[i] = 50 then k : = k + 1;   end;   writeln();   writeln('кол-во элементов, равных 50-ти: ', k); end.

209=11010001

193=11000001

8+8+3=19