Найти наибольший среди элементов массива А(10), остальные обнулить

 Program Z_n;var a:array[1..10] of integer;i,m:integer;BeginRandomize;Write('Исходный массив: ');m:=-1000;For i:=1 to 10 do begina[i]:=Random(50);Write(a[i],' ');if a[i]>m then m:=a[i];end;writeln;Write('Массив после обработки: ');For i:=1 to 10 do beginif a[i]<>m then a[i]:=0;Write(a[i],' ');end;writeln;end.