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

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.