(50 баллов) Помогите, пожалуйста!!! Программа Паскаль: написать массив, который выводит все элементы с нулём.

А почему 43, 38 тут есть, они же не содержат ноль?

const n=10;var a:array[1..n] of integer;i:integer; c:string;beginRandomize;for i:=1 to n do begin a[i]:=random(200); write(a[i]:5); end;writeln;for i:=1 to n do begin str(a[i],c); if pos('0',c)>0 then write(a[i]:5); end;writeln;end.Пример:  110   43   38   35  103   44   35  192   86  199  110  103

А еще можно вот так...// PascalABC.NET 3.1, сборка 1200 от 13.03.2016begin  var a:=ArrRandom(ReadInteger('n='),100,999); a.Println;  a.Where(x->(x.ToString.IndexOf('0')>0)).Println;end.Тестовое решение:n= 16959 277 138 801 580 575 785 986 679 544 762 852 614 460 955 411801 580 460И даже можно решить одним-единственным "оператором" )))begin  ArrRandom(ReadInteger('n='),100,999).Println.      Where(x->(x.ToString.IndexOf('0')>0)).Println;end.