1. В массиве из 17 частей, заполненном случайными целыми двузначными числами,

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(17,42,65); a.Println;
  var k:=a.Where(t-gt;t=50).Count; // кол-во элементов =50 - задание 2
  Writeln('Кол-во частей, одинаковых 50: ',k);
  a.Transform(t-gt;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.