Решите,пожалуйста, задачу в Pascal ABC!!!!! Для массива из 20 элементов обнулить все...

Question

Решите,пожалуйста, задачу в Pascal ABC!!!!!
Для массива из 20 элементов обнулить все отрицательные элементы и посчитать количество остальных.

Answer 1

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(20,-50,50); a.Println;
  var k:=0;
  for var i:=0 to a.Length-1 do
    if a[i]<0 then a[i]:=0 else Inc(k);<br>  a.Println;
  Print('k=',k)
end.

Тестовое решение:
-4 -25 17 -24 -32 -2 21 28 -14 37 -19 -3 -28 33 -27 -10 -30 7 21 -38
0 0 17 0 0 0 21 28 0 37 0 0 0 33 0 0 0 7 21 0
k= 7