Нужно перевести с паскаля на c. procedure filldec( var a : mas ); var i : integer; begin for i : = 1 to max do a[i] : = max - i; end; { заполнение массива равными числами (0) } procedure fillzero( var a : mas ); var i : integer; begin for i : = 1 to max do a[i] : = 0; end;